Private Sub Form_Load()
Dim cnARCO As ADODB.Connection
Set cnARCO = New ADODB.Connection
Dim comando As ADODB.Command
Set comando = New ADODB.Command
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
cnARCO.Open "DSN=ARCO"
Set comando.ActiveConnection = cnARCO
comando.CommandType = adCmdStoredProc
comando.CommandText = "spProcPrueba"
comando(0) = "655"
rs.Open comando, , 1, 3, 1
Me.TDBGrid.DataSource = rs
rs.Requery
Me.TDBGrid.Refresh
End Sub
me da fallo justo al abrir el rs me dice que no le he merido ningun parametro al procedimiento...he probado con diferentes formatos, pasando sin las comillas tb poniendo comando.parameters(0).value=655 ...pero error que me da es que no le estoy pasando nada al parametro del procedimiento (@usuario)...... Alguna sugerencia? muchas gracias
