如何通过ADO调用后台存储进程及取出其参数和返回值？

Question

dim cnn as new adodb.connection
dim cmd as new adodb.commanddim outVal as long
dim retVal as long
dim inpVal as longcnn.open ....
set cmd.ActiveConnection = cnn
cmd.CommandText = "Sp_proc"
cmd.CommandType = adStoredProcinpVal = 50cmd.parameters.append cmd.CreateParameter("inparam" , adInteger , adParamInput ,,inpVal)
cmd.parameters.append cmd.CreateParameter("outparam" , adInteger , adParamOutput, , outVal)
cmd.Parameters.append cmd.CreateParameter("returnVal" , adInteger , adParamReturnValue , , retVal)cmd.ExecuteDebug.Print "All Parameters in cmd object,including INPUT , OUTPUT , RETURN :"
for each param in cmd.Parameters
     Debug.Print "    " & param.Name & " : "
     Debug.Print "           " & param.Type & " = " & param.Type
     Debug.Print "           " & param.Value & " = " & param.Value
     Debug.Print "           " & param.Size & " = " & param.Size
     Debug.Print
next param