T-SQL の ストアドの outputパラメータをadoで受ける

Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset

cmd.CommandType = adCmdStoredProc
cmd.CommandText = "[ストアド名]"
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.Parameters.Append cmd.CreateParameter(, 型名, adParamInput, , パラメータの値)
cmd.Parameters.Append cmd.CreateParameter("hoge", 型名, adParamOutput)
Set rs = cmd.Execute

'
'ここでcmd.Executeで取得した値が削除される場合があるため
'rsに代入しておくことにより回避する
'

value = cmd.Parameters(index)