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
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