求助：VB如何调用存数过程，并取得返回值？

Question

求助：VB如何调用存数过程，并取得返回值？能给个示例吗？非常感谢！分数就剩下10分了！在线等您的回复……

Answer 1

Dim adoCmd     As ADODB.Command
Dim adoCn As ADODB.Connection
Dim parIn     As ADODB.Parameter
Dim parOut     As ADODB.ParameterSet adoCn = New ADODB.ConnectionWith adoCn
  .CursorLocation = adUseClient
  .Open "Provider=SQLOLEDB;Server=" + ServerName + ";Database=myinvoice;Uid=" + ServerID + ";Pwd=" + ServerPassword + ";"
End WithSet adoCmd = New ADODB.Command
adoCmd.ActiveConnection = adoCn
adoCmd.CommandType = adCmdStoredProc
adoCmd.CommandText = "存储过程名称"
Set parIn = adoCmd.CreateParameter(名称, 类型, adParamInput, 长度, 值)
adoCmd.Parameters.Append parIn
'输入参数用   adParamOutput
Set parOut = adoCmd.CreateParameter("输出参数", 类型, adParamOutput, 长度, 值)
adoCmd.Parameters.Append parOut
adoCmd.Execute
MsgBox adoCmd.Parameters("输出参数"), vbInformation
adoCn.Close

Answer 2

("输出参数", 类型, adParamOutput, 长度, 值)
这些值，应该怎么设置？