problema con findfirst
Tengo una bd de access a la que accedo con un objeto data.
A través de recordset.findfirst ejecuto la siguiente busqueda:
Private Sub buscajug_Click()
Dim busca As String
busca = InputBox("Escriu el nom del Poblat que vols buscar")
Data1.Recordset.FindNext "poble='busca'"
If Data1.Recordset.NoMatch Then
MsgBox "El Poblat no existeix a la base de dades"
End If
End Sub
El problema es que siempre me sale el msgbox.
He mirado los datafield i el datasource i esta todo bien...
Alguna ayuda?
A través de recordset.findfirst ejecuto la siguiente busqueda:
Private Sub buscajug_Click()
Dim busca As String
busca = InputBox("Escriu el nom del Poblat que vols buscar")
Data1.Recordset.FindNext "poble='busca'"
If Data1.Recordset.NoMatch Then
MsgBox "El Poblat no existeix a la base de dades"
End If
End Sub
El problema es que siempre me sale el msgbox.
He mirado los datafield i el datasource i esta todo bien...
Alguna ayuda?
