[Banco De Dados]

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

[Base De Dados]

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