Estimados:
He encontado la manera, hay que realizarlo mediante la instrucción command.
Ej:
Código:
Private Sub mostrarCliente(varRut, varNroFicha)
Dim cmd As ADODB.Command
Dim rs1 As Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
varSql = "select * from hfpaci where rut_paciente = ? or numero_ficha = ?"
cmd.CommandText = varSql
If Not IsNull(varRut) Then
cmd.Parameters(0).Value = varRut
Else
cmd.Parameters(0).Value = Null
End If
If Not IsNull(varNroFicha) Then
cmd.Parameters(1).Value = varNroFicha
Else
cmd.Parameters(1).Value = Null
End If
Set rs1 = cmd.Execute()
Set DGridClientes.DataSource = rs1
DGridClientes.Refresh
'rs.Close
End Sub
Me funciona, pero al momento de asignar el recorset el datagrid me dice lo siguiente:
El conjunto de registro no acepta marcadores
¿Qué podría ser?
Saludos .-