CREATE PROCEDURE sp_GetDispReport(
   @d DATETIME,
   @Gpa_Work varchar( 50 ) OUTPUT,
   @DT_Curr  varchar( 50 ) OUTPUT
)
AS 

SET NOCOUNT ON
DECLARE @D1 DATETIME
DECLARE @D2 DATETIME
DECLARE @H INTEGER
SET @Gpa_Work = "ГПА1" --например
....
-- Выдать результат
SELECT *  FROM #TMP  ORDER BY ORDERNUM ASC
--удалить временную таблицу
DROP table #tmp
GO

Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command

Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_GetDispReport"
cmd.NamedParameters = True
Set prm = cmd.CreateParameter("@d", adDBTimeStamp, adParamInput, , d)
cmd.Parameters.Append prm

Set prm = cmd.CreateParameter("@Gpa_Work", adVarChar, adParamOutput,  50 )
cmd.Parameters.Append prm

Set prm = cmd.CreateParameter("@DT_Curr", adVarChar, adParamOutput,  50 )
cmd.Parameters.Append prm


Set rst = cmd.Execute    ' открываем Recordset
Do While Not rst.EOF
....

cmd.Parameters.Refresh
cmd.Parameters("@d") = d
cmd.Parameters("@Gpa_Work").Direction = adParamOtput
cmd.Parameters("@DT_Curr").Direction = adParamOutput