Office: (Office 2016) VBA: Hinzufügen von Datensätzen zu einer bestehenden Tabelle

Hallo,
ich möchte zum ersten mal mit loop und einer Wenn-Bedingung mit VBA
Datensätze (Felder) aus einer Tabelle in eine andere Tabelle übernehmen und komme nicht weiter. Vielleicht kann mir jemand helfen


Bestehende Tabelle: TeilnehmerAdressdatenT
ID
TeilnehmerID
AdressdatenID
Diese Tabelle soll wie nachfolgend mit neuen Datensätzen befüllt werden

Die Datensätze stammen ebenfalls aus einer Tabelle und können durch Eingaben in ein Ja/Nein-Feld in einem Formular selektiert werden.

Formular: tmpCheckDuplikateTN_Zu_AdressdatenF

Datenquelle des Formulars: tmpCheckDuplikateTN_Zu_AdressdatenT



Das Ja/Nein-Feld heißt: „Übernehmen“

Datenfelder, die übernommen werden sollen:
TeilnehmerID
AdressdatenID

Wenn Feld „Übernehmen“ = Ja
soll ein Datensatz in der Tabelle TeilnehmerAdressdatenT angefügt werden mit den zugehörigen Inhalten der Felder TeilnehmerID und AdressdatenID


Bestehende Code-Baustelle:

Private Sub AddRecordset ()

Private Sub cmdAddAdressdatenTN_Click()

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("???????")

Do Until rs.EOF

If me.Übernehmen.Value = True


Loop

End Sub