Hallo ich hab nen Code geschrieben der Duplikate aus einer von 2 Tabellen entfernen soll.

Gefunden werden die Duplikate aber nicht gelöscht. was ist da falsch? ich bitte um Hilfe.

Private Sub Anmeldeliloe_Click()
On Error GoTo Err_Anmeldeliloe_Click

Dim rrsb As DAO.Recordset
Dim rDBb As DAO.Database
Dim rrsa As DAO.Recordset
Dim rDBa As DAO.Database

Set rDBa = Application.CurrentDb
Set rrsa = rDBa.OpenRecordset("Anmeldung", dbOpenDynaset)
Set rDBb = Application.CurrentDb
Set rrsb = rDBa.OpenRecordset("Mitgliederdateitabelle", dbOpenDynaset)

rrsb.MoveFirst
Do
rrsa.MoveFirst
Do
    If rrsb.Fields("Name") = rrsa.Fields("Namen") And rrsb.Fields("Vorname") = rrsa.Fields("Vorname") _
    And rrsb.Fields("GebDat") = rrsa.Fields("Geburts_Dat") Then

rrsa.Edit
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
rrsa.Update

End If

    rrsa.MoveNext
        Loop Until rrsa.EOF
    rrsb.MoveNext
        Loop Until rrsb.EOF
       
    Set rrsa = Nothing
    Set rDBa = Nothing
    Set rrsb = Nothing
    Set rDBb = Nothing
Exit_Anmeldeliloe_Click:
    Exit Sub

Err_Anmeldeliloe_Click:
    MsgBox Err.Description
    Resume Exit_Anmeldeliloe_Click
   
End Sub

 Das ist für euch sicher eine Kleinigkeit mir würde sehr helfen Dankeschön im Voraus.

Werner