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