hola amigos, mi programa se ejecuta sin generar errores, pero tengo una instruccion de sql que no hace lo suyo, estoy queriendo leer lo que tengo en la base de datos de acces pero no sale, la sentencia LIKE no funciona, no entra y no se que hacer, no se si será incompatibilidad o nose, e revizado el codigo varias veces pero no sale, halguien me podrìa ayudar a rastrear el error>?
================================================
Public db As New ADODB.Connection
Public dbf As New ADODB.Recordset
Private Sub Form_Load()
db.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\principal.mdb" & ";" & _
"Jet OLEDB:Database Password=area51"
db.Open
End Sub
Private Sub Text1_Change(Index As Integer)
Dim n1, n2 As String
If (Text1(0).Text = "") Then
n1 = "*"
Else
n1 = Text1(0) & "*"
End If
If (Text1(1) = "") Then
n2 = "*"
Else
n2 = Text1(1) & "*"
End If
'esta es la instruccion que no leeSet dbf = db.Execute("SELECT * FROM paciente WHERE nombres LIKE '" & n1 & "' AND apellidos LIKE '" & n2 & "'")List1.Clear
Do Until (dbf.EOF)
List1.AddItem (dbf!nombres & "_" & dbf!apellidos)
dbf.MoveNext
Loop
End Sub
=====================================