Foro de elhacker.net

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 #)

Tienes el archivo abierto?

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