[Resolvido]Atualizacao campo duplicado

Boa dia a todos!

Procurei no fórum como "duplicidade" mas não encontrei nenhum tópico sobre o que preciso.

É o seguinte, eu gostaria que minha consulta Atualizasse o campo COD quando o campo MATRICULA estiver em duplicidade, deixando somente uma por CODIGO, por exemplo:

Atualmente esta desta forma.
COD   MATRICULA
9002       3212
9002       3212
9002       3212
9002       15
9002       15
9002       7
9002       9

Então me atualize o campo COD + 1 iria ficar da seguinte forma:


COD   MATRICULA
9002       3212
9003       3212
9004       3212
9002       15
9003       15
9002       7
9002       9



Agradeço desde já a ajuda  cheers

Boa tarde,
Sub AlteraCod()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rst As dao.Recordset, UltimoCod As Integer, UltimaMatricula As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tabela ORDER BY Matricula,Cod")
Do While Not rst.EOF
If rst("Matricula") = UltimaMatricula Then
UltimoCod = UltimoCod + 1
rst.Edit
rst("Cod") = UltimoCod
rst.Update
Else
UltimaMatricula = rst("Matricula")
UltimoCod = rst("Cod")
End If
rst.MoveNext
Loop
Set rst = Nothing
End Sub

Grande Alexandre Neves, obrigado pela ajuda, Funcionou perfeitamente!