O método Find só funciona sobre Dynasets e Snapshots, não é possivel empregar o método Find sobre Tabelas, nesta voce usa o método Seek
Outra coisa, as pesquisas podem ser demoradas, se não houver um mecanismo Jet de indices, aconselho com alguma criatividade usar o método Seek, muito mais rápido, mas localiza apenas o primeiro registro que satisfaça a condição, mas vai um exemplo de Find sobre um Dynaset.
Private Sub cmdPROCURA_Click()
Dim sPROCURA AS String
sPROCURA = "Nome like '*" & PROCURA.Text
rsDYNASET.FindMin sPROCURA
If rsDYNASET.noMatch Then ' a busca não encontrou
MsgBox "Não encontrado"
exit sub
End If
' mostra a procura
End Sub
É mais aconselhavel usar o método Seek, mais rápido e também é possivel localizar vários registros com pouco código.
Espero ter ajudado
