Dim mysqlcmd As New System.Data.SqlClient.SqlCommand()
        Dim dtreader1 As SqlClient.SqlDataReader
        
        mysqlcmd.CommandType = CommandType.StoredProcedure
        mysqlcmd.CommandText = "dbo.SPArhiv"
        mysqlcmd.Parameters.Add("glbArcBeginDate", SqlDbType.DateTime,  10 )
        mysqlcmd.Parameters.Add("glbArcEndDate", SqlDbType.DateTime,  10 )

        Dim d1 As Date = Календарь1.выбранная дата1
        Dim d2 As Date = Календарь2.выбранная дата2
        mysqlcmd.Parameters("glbArcBeginDate").Value = d1
        mysqlcmd.Parameters("glbArcEndDate").Value = d2
        dtreader1 = mysqlcmd.ExecuteReader()
        While dtadapter1.Read
            и здесь хочу отобразить в гриде некоторые поля из селекта из процедуры
        End While

CREATE PROCEDURE [dbo].[SPArhiv] (@glbarcBeginDate datetime, @glbarcEndDate datetime)
AS

SELECT     TOP  100  PERCENT dbo.TDocuments.document_date, dbo.TDocuments.document_number, dbo.TKlients.klient_name AS prodavec, 
                      TKlients_1.klient_name AS pokupatel, dbo.TDocuments.document_stoim_itogo, dbo.TCurrency.currency_name, 
                      dbo.TDocuments.documents_vid_oplati, dbo.TDocuments.document_id, dbo.TManagers.manager_name, dbo.TDocuments.user_id
FROM         dbo.TDocuments INNER JOIN
                      dbo.TManagers ON dbo.TDocuments.manager_id = dbo.TManagers.manager_id INNER JOIN
                      dbo.TKlients ON dbo.TDocuments.prodavec_id = dbo.TKlients.klient_id INNER JOIN
                      dbo.TKlients TKlients_1 ON dbo.TDocuments.pokupatel_id = TKlients_1.klient_id INNER JOIN
                      dbo.TCurrency ON dbo.TDocuments.currency_id = dbo.TCurrency.currency_id
WHERE     (dbo.TDocuments.document_date >= @glbarcBeginDate) AND 
                      (dbo.TDocuments.document_date <= @glbarcEndDate) AND (dbo.TDocuments.user_id = SYSTEM_USER)
ORDER BY dbo.TDocuments.document_date DESC, dbo.TDocuments.document_number DESC
GO