Hola, queria saber si me podian ayudar porque cuando realizo una consulta de busqueda osea con WHERE, me dice que no se puede realizar la operacion si esta abierto y me marca en cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"

Dim rs As New ADODB.Recordset

rs.ActiveConnection = cn


If Not cn.State Then

rutabasedatos = "C:\Users\Public\VB______\Final\BD FINAL-datos+consultas.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"

End If
rs.Open "SELECT *FROM paciente where nombre= '" & Text1.Text & "'", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs

Me.DataGrid1.Refresh

Tambien me pasa cuando uso un inputbox, y cuando intento obtener datos a través de fechas (y he usado el #)

No soy bueno con las consultas, pero no deberias cerrar la base antes de volver a usarla? porque la abres dos veces,

Deberia quedar asi:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
cn.close