Pesquisar no Metodo Find

[Almarante]

Olá Galera estou novamente precisando de ajuda

Estou exibindo dados de uma tabela em um datagrid, fiz uma rotina de pesquisa e dois botões, um é o Próximo e o outro Anterior

então tenho dois problema, Primeiro: quando pesquiso um registro diferente do especificado na condição IF e o regitro não existe ele gera um erro.

Segundo: quando é digitado tudo igual o registro é localzado, porem quando clico no botão Próximo para ele pular para o próximo regitro do mesmo Clinte por exemplo ele

não faz isso, ele simplemente pula um a um .

esses são os dois Codigos.

Private Sub cmdlocalizar_Click()
  
Adobaixas.Recordset.Find (cboParametro.text & "='" & txtPesquisa.text & "'")
   
If Adobaixas.Recordset("Documento") = "" Then
   MsgBox "Registro não encontrado", vbInformation, "Aviso"
   txtPesquisa.text = ""
   txtPesquisa.SetFocus
End If
End Sub

  Na cboParametro eu Escolho entre:
  Documento
  Cliente
  Vencimento

Private Sub cmdProximo_Click()
  ' Move para o próximo registro na tabela de Baixas
' E verifica se terminaram os regitros, dando uma mensagem
 If Not Adobaixas.Recordset.EOF Then
    Adobaixas.Recordset.MoveNext
    
Else
    MsgBox "Fim dos Registros", vbInformation, "Aviso"
End If
End Sub

[kuroi]

troque essa linha:

If Adobaixas.Recordset("Documento") = "" Then

por:

If Adobaixas.Recordset.EOF Then

agora no proximo, pra achar o proximo registro do mesmo cliente, você tem q usar o find de novo.