Come faccio a leggere il returncode di una stored procedure sqlserver
con un oggetto adocommand?

Ho provato a fare
Dim myRecordSet As adodb.Recordset
Dim pippo As Integer
Dim myCommand As New adodb.Command
myCommand.CommandType = adCmdStoredProc
myCommand.ActiveConnection = myConnect_1
myCommand.CommandText = "dbo.myStoredProc"
Set myRecordSet= myCommand.Execute(1)
pippo = myRecordSet("codRit").Value

ma non va bene...
in quanto mi da questo errore

"Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto."

chi può aiutarmi?
Grazie 1000.
nb a termine della stored proc c'è un istruzione così
select @codrit codrit

Grazie 1000
anche se è riferito ad adonet.
Comunque allego per conoscenza per altri il codice
corretto:

Dim objCommand As New ADODB.Command
Dim objParameter As New ADODB.Parameter
With objCommand
Set objParameter = .CreateParameter("@ReturnCode", adInteger, adParamOutput, adInteger)
.Parameters.Append objParameter
.CommandText = "dbo.myStoredProc"
.CommandType = adCmdStoredProc
.ActiveConnection = objConn
.Execute
mReturnCode= .Parameters("@ReturnCode").Value
End With