rs.Open como hacerlo?

[Netyco]

Amigos, hace mucho que no uso VB y estoy un poco trabado con un codigo y me gustaria ver si podrian ayudarme con esto que me esta quemando la cabeza.

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:

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

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.

Quedo por favor a la espera de cualquier ayuda al respecto.

Muchas gracias.

[lokoman]

Hola!!
Por que no intentas asi:

Código vb:

Private Sub Text1_Change()
 
On Error Resume Next
 
    if rs.state=1 then rs.close
 
    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
 

de esta forma se mantiene abierto el recordset...

[Netyco]

Hola Lokoman, muchas gracias

que supersolucion, mil gracias, no lo sabia.