Contador de registros.

Olhe, no forum do Macoratti, já respondi, mas posto aqui de novo:

dim sBOOKMARK As String ' variável para marcar o registro

sBOOKMARK = "" ' INICIA A VARIAVEL

Tabela.Seek "=", ProcuraCPF
   If Tabela.NoMatch = False Then
        Contador = 0
        Do While Not Tabela.EOF
            If Tabela!CPF = ProcuraCPF Then
            Contador = Contador + 1

            sBOOKMARK = Tabela.Bookmark     ' aqui marca o ultimo registro
            'OS_DADOS_Q_VC_QUER_DO_ULTIMO_REGISTRO= tabela("OS_CAMPOS_Q_VC_QUER")
        Else
            Exit Do
            End If
            Tabela.MoveNext
        Loop

Tabela.Bookmark = sBOOKMARK ' AQUI VOLTA AO ULTIMO REGISTRO ENCONTRADO

PRONTO AGORA É SÓ EXIBIR O REGISTRO MARCADO

OK????