Visual Basic - SQL Server y VB

necesito tomar el valor de un parametro de salida de un store procedure(procedimiento almacenado), como es que puedo hacer esto. Ya tengo el siguiente código pero aun no funciona, me marca error cuando lo ejecuto:

Dim parametro As ADODB.Parameter
Dim iSaldo As Integer
On Error GoTo SubError
Set Comando = New ADODB.Command
Set Comando.ActiveConnection = DB
Comando.CommandText = "pAgencia_Saldo"
Comando.CommandType = adCmdStoredProc

Set parametro = Comando.CreateParameter("AgenciaID", adNumeric, adParamInput, , AgenciaID)
Comando.Parameters.Append parametro
Set parametro = Comando.CreateParameter("dtFecha", adDate, adParamInput, , Date)
Comando.Parameters.Append parametro
Set parametro = Comando.CreateParameter("iSaldo", adNumeric, adParamOutput, , 0)
Comando.Parameters.Append parametro
Comando.Execute
Saldo = Comando.Parameters(2).Value
SubError:

De antemano muchas gracias

Te comento.

A mi me ocurrió algo parecido y si no me equivoco, el problema estaba en el campo fecha, lo que hice al final es ponerle adVarchar

Prueba a poner

Set parametro = Comando.CreateParameter("dtFecha", adVarChar, adParamInput,10 , cstr(Date))

El parámetro del procedimiento @Fecha lo puedes dejar como datetime

Por cierto, me imagino que el parámetro iSaldo lo tendrás definido como:
@Saldo <tipo_numérico> OUTPUT

Espero que esto te ayude

Un saludo,
Tito