Erro No Find

[Guest - Alepe -]

Bem pessoal,

Entro com Nome e senha e clico em Entrar ao clicar em entrar ele deveria localizar o registro liberar ou não o acesso ao sistema e aparece a mensagem

Run time Error 91

Object Variable or with block variable not set

Dim criterio As String

If txtnome.Text = Empty Then Exit Sub

criterio = "Apelido=" & txtnome.Text
dtfuncionario.Recordset.MoveFirst
dtfuncionario.Recordset.Find criterio, 0, adSearchForward




If dtfuncionario.Recordset.EOF Then

dtfuncionario.Recordset.MoveLast

MsgBox "Funcionario Inexistente"

End If

[kuroi]

O esquema é fazer assim:

dtfuncionario.Recordset.MoveFirst
dtfuncionario.Recordset.Find criterio, , 1

[Graymalkin]

As propriedades DatabaseName e RecordSource estão corretamente definidas?

Abraços,

Graymalkin