VB调用存储过程

 Dim adocomm As New ADODB.Command
 Dim prmRetVal As ADODB.Parameter
 Dim prmId As ADODB.Parameter
 
 adocomm.ActiveConnection = conn
 adocomm.CommandType = adCmdStoredProc
 adocomm.CommandText = "sp_del_office_byID"
 
  Set prmRetVal = adocomm.CreateParameter("Param0", adInteger, adParamReturnValue, 0)
  Set prmId = adocomm.CreateParameter("@OfficeID", adInteger, adParamInput, 0)
       
  adocomm.Parameters.Append prmRetVal
  adocomm.Parameters.Append prmId
 
  adocomm.Parameters(1).Value = 0
 
  adocomm.Execute
 
  MsgBox adocomm.Parameters(0).Value