el codigo es el siguiente:
Código:
Private Sub Text1_Change() On Error Resume Next rs.Open "select * from tbl_pacientes where apellido LIKE '%" & Me.Text1.Text & "%'", cnn, adOpenStatic, adLockOptimistic With DataGrid .AllowUpdate = False End With Call CargarDataGrid(DataGrid) End Sub
Funciona perfectamente, pero el problema es que como está en un Text1_Change, al presionar la letra por segunda vez, me salta un error indicando lo siguiente:
"La operacion no esta permitida si el objeto esta abierto"
Es obvio este mensaje, dado a que nunca cerre el objeto y al colocarle un rs.close en el objeto, el mismo se cierra y no se vuelve a abrir...

Código:
Me gustaria saber si existe alguna forma de realizar esto, es decir, que cuando una persona tipee una letra, automaticamente vallan apareciendo los datos en el datagird.Private Sub Text1_Change() On Error Resume Next rs.Open "select * from tbl_pacientes where apellido LIKE '%" & Me.Text1.Text & "%'", cnn, adOpenStatic, adLockOptimistic With DataGrid .AllowUpdate = False End With Call CargarDataGrid(DataGrid) rs.close 'agrego esto, pero la connecion se cierra forever... End Sub
Quedo por favor a la espera de cualquier ayuda al respecto.
Muchas gracias.