[Resolvido]Validar Registro

Olá Gentem, to com um problemão!
Tenha uma tabela com varias Raiz de CNPJ, porem cada raiz tem duas contas bancarias, ou mais, preciso de um codigo onde corra por estes dados e identifique quando a conta é igual ou diferente das demais, ou seja:

Raiz conta
00.000.000 x2329
00.000.010 x2328
00.000.010 x2328
00.000.040 x2338
00.000.050 x2348
00.000.050 x2248

Para a Raiz 00.000.050 aparecerá um status de Conta diferente
e para a Raiz 00.000.010 conta Igual

E ai, alguém consegue me ajudar..
Lembrando que as informações estão na mesma tabela.

Obrigadaa

Pequeli

Boa noite, pequeli, e bem-vinda ao fórum

Utilize a seguinte função:

Sub VerificaRepeticoes()
'criado por Alexandre Neves
'em 2011-05-05
'para pequeli
'do fórum MaximoAccess
Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("SELECT [Raiz Conta] FROM SuaTabela;")
Do While Not Rst.EOF
If DCount("*", "NomeTabela", "[Raiz Conta]='" & Rst(0) & "'") = 1 Then
MsgBox "Conta diferente."
Else
MsgBox "Conta igual."
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Cumprimentos,