Buenas tardes!!
estoy llamando desde vb6, con un objeto recordset ADO, un store procedure pero me salta el error '-2147217900 (80040e14)' en tiempo de ejecucion: [Microsoft][ODBC SQL Server Driver][SQL Server]El procedimiento o la funcion 'sp_consulta' esperaba el parametro '@cv' , que no se ha especificado.

por favor , ¿me podria ayudar? estoy con este tema hace tiempo
 
he corroborado el codigo y esta ok y el store procedure en el sql server 2005 corre bien.

Const conexion = "driver={SQL Server};server=" & servidor & ";UID=" & UserAdmin & ";PWD=" & password & ";DATABASE=" & Path
 
    Dim codigoAbuscar as string
 
    Set cmd = New ADODB.Command
 
    Dim cnn As ADODB.Connection  'Microsoft ActiveX Data Objects 2.x Library
    Set cnn = New ADODB.Connection
 
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
 
    If rst.State = adStateOpen Then rst.Close: Set rst = Nothing
    If cnn.State = adStateOpen Then cnn.Close: Set cnn = Nothing
 
cnn.Open conexion
cnn.CursorLocation = adUseClient
cmd.ActiveConnection = conexion
cmd.CommandType = adCmdStoredProc 
cmd.CommandText = "sp_consulta" 
 
cmd.NamedParameters = True
 
codigoAbuscar = "MANUAL-1"
 
cmd.Parameters.Append cmd.CreateParameter("@cv", adVarChar, adParamInput, 50, codigoAbuscar)
cmd.Parameters.Append cmd.CreateParameter("@estado", adVarChar, adParamInput, 1, Combo1.Text)
cmd.Parameters.Refresh
 
With rst
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
End With
 
rst.Open cmd, , adOpenStatic, adLockOptimistic (aqui me salta el error)
 

Desde ya Gracias ¡!!

creo que estas poniendo mal algunos parametros, fijate aca:

How to Use Stored Procedures in VB6

saludos.