Dim cmd As New ADODB.Command
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = conn
cmd.CommandText = "存储过程名称"
cmd.Parameters.Append cmd.CreateParameter("Return", adInteger, adParamReturnValue, 4, 0)
'...
cmd.Execute
MsgBox cmd.Parameters.Item(0).Value
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024