Deleta duplicados sem chave primaria

Public Sub DeletaDuplicadosSemChavePrimaria()
  Dim db As DAO.Database, rst As DAO.Recordset
  Dim strNome As String, strSaveName As String
  
  Set db = CurrentDb()
  'abre o recordset da sua tabela, baseado em 3 campos todos por ordem ascendente
  Set rst = db.OpenRecordset("SELECT * FROM SuaTabela ORDER BY Campo1, Campo2, Campo3 ASC;")
  'verifica se existem registros na tabela
  If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
  Else
  'se existirem registros, coloca o recordset no primeiro
    rst.MoveFirst
    Do Until rst.EOF
   'envia para a variavel, a concatenação dos 3 campos
      strDupName = rst.Fields("Campo1") & rst.Fields("Campo2") & rst.Fields("Campo3")
      If strDupName = strSaveName Then
       'se a variavel concatenada, for igual à variavel já salva, deleta
        rst.Delete
      Else
      'salva a concatenação
        strSaveName = rst.Fields("Campo1") & rst.Fields("Campo2") & rst.Fields("Campo3")
      End If
      'avança outro registro
      rst.MoveNext
    Loop
    Set rst = Nothing
    Set db = Nothing
  End If
End Sub