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

Eu já construi a minha base de dados em Acess, mas quando vou inserir qualquer coisa nela surge um erro em relação ao Recordset que diz que a operação foi cancelada por já ter um objecto associado. Tenho um livro de vb que explica passo a passo, como construir a base de dados, segui esse exemplo mas dá essse erro e não consigo descobrir como arrumá-lo. Se alguém me puder ajudar era muito bom