codice:
Dim mioCmd As New ADODB.Command
Dim mioPar As ADODB.Parameter

'Oggetto Command per lanciare la stored procedure
mioCmd.CommandType = adCmdStoredProc
mioCmd.CommandText = "sp_AggiungiAcquisitore"
mioCmd.ActiveConnection = miaConn

'Il parametro di ritorno per primo
Set mioPar = New ADODB.Parameter
mioPar.Direction = adParamReturnValue
mioPar.Name = "RETURN_VALUE"
mioPar.Type = adInteger
mioCmd.Parameters.Append par

'Poi tutti gli altri, ecco un esempio del primo
Set mioPar = New ADODB.Parameter
mioPar.Direction = adParamInput
mioPar.Name = "@mioAcquisitore"
mioPar.Type = adVarChar
mioPar.Size = 100
mioPar.Value = mvarAcquisitore
mioCmd.Parameters.Append par


'Dopo aver costruito i parametri lancio la stored
mioCmd.Execute

'e quindi recupero il valore di ritorno
mioIDOut = mioCmd.Parameters(0).Value
Questo è quanto


HTH