problema con findfirst

Psychos
20 de Marzo del 2006
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?

psychos
20 de Marzo del 2006
i el recordsource del objeto data1 está en la tabla que tiene que estar...