[Resolvido]Localizar duplicidade e deletar a data menor da tabela

Bom dia!

Eu estou precisando muito de ajuda com a seguinte questão:

No meu formulário de cadastro de treinamentos eu registro via VBA para tabela, após registro localizo a duplicidade de e deleto informação.

O único problema é que ele deleta exatamente o que eu lancei, eu quero que ele delete por critério de data, mantendo a data mais recente.

segue código para possível adaptação!

Código:

Public Sub Duplicidade()
On Error Resume Next
Dim db As DAO.Database, rst As DAO.Recordset
Dim strNome As String, strSaveName As String


'MsgBox "Analisar Dados..."

Set db = CurrentDb()
Set rst = db.OpenRecordset("select * from Treinamentos_EHS order by  Treinamento, Nome ASC;")
If rst.BOF And rst.EOF Then


Else
rst.MoveFirst
Do Until rst.EOF
strDupName = rst.Fields("Treinamento") & rst.Fields("Nome")

If strDupName = strSaveName Then
rst.Delete



Else
strSaveName = rst.Fields("Treinamento") & rst.Fields("Nome")

End If
rst.MoveNext

Loop
Set rst = Nothing

Set db = Nothing



End If


End Sub

Ola;

Onde diz SeuCampoData, altere para o nome correto;

Código:

Public Sub Duplicidade()
On Error Resume Next
Dim db As DAO.Database, rst As DAO.Recordset
Dim strNome As String, strSaveName As String

'MsgBox "Analisar Dados..."

Set db = CurrentDb()
Set rst = db.OpenRecordset("select * from Treinamentos_EHS order by  Treinamento ASC, Nome ASC, SeuCampoData DESC;")
'se não encontrar registros, saí do codigo
If rst.RecordCount = 0 Then Exit Sub
'se encontrar move para o 1º registro
rst.MoveFirst

Do Until rst.EOF
strDupName = rst.Fields("Treinamento") & rst.Fields("Nome")
If strDupName = strSaveName Then
rst.Delete
Else
strSaveName = rst.Fields("Treinamento") & rst.Fields("Nome")
End If
rst.MoveNext

Loop
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing
End Sub

Muito Obrigado funcionou perfeitamente