Banco De Dados

[Zegre]

Eu gostaria de saber qual a melhor maneira de contar quantas vezes aparece um mesmo nome numa base de dados, já experimentei várias situações mas o resultado é sempre o mesmo assim que ele encontra o 1º nome salta da procura eu quero ir até ao fim do campo a pesquisar. O código que eu uso é

Private Sub FindPerson(person As String)

Dim findRecord As Recordset

'Use a inputbox to get what person to find

person = InputBox("What person do you want to find?", "Find person")

'If nothing is entered, assume that user want's to abort

If person = "" Then Beep: Exit Sub

'if we want to use datacontrol

'set with block so we dont need to write dtaEmployment everytime

With dtaEmployment

'Search in Name field for person wanted

.Recordset.FindFirst "Name='" & person & "'"

If .Recordset.NoMatch Then Beep: Exit Sub

'we found our person

cont = cont + 1

End With

'mostra o nº de vezes que aparece o nome

Text1.Text = cont

End Sub

Se alguém me puder ajudar ficaria muito agradecido

[kuroi]

o que é dtaEmployment?? é um datacontrol??

você deve por num loop, acho que seria tipo assim:

cont = 0
With dtaEmployment
     'Search in Name field for person wanted
     .Recordset.MoveFirst
     Do While Not .Recordset.EOF
          .Recordset.FindNext "Name='" & person & "'"

          'we found our person
          cont = cont + 1
     Loop
End With
If cont = 0 Then Beep: Exit Sub
'mostra o nº de vezes que aparece o nome
Text1.Text = cont[/code]