Per VBA einen DS in zwei Tabellen anlegen

Hallo Gemeinschaft,

habe zwei Tabellen - Kunden und Buchungen

nun lese ich per VBA eine txt Datei aus mit diesem Inhalt

Frau
K
M
xxx@gmx.de
0173xxxxxxx
Wach Str. 1

Rang

12345
Deutschland
€872,00
Ferienhaus - E17
03.07.2021
10.07.2021
4

nun sollen die Adressdaten in die Tabelle Kunden - der DS der dort angelegt wird bekommt eine K-ID - diese benötige ich, um dann die anderen Daten in die Tabelle Buchungen einzutragen

könnt ihr mir dabei helfen

der Kunde kann ruhig doppelt angelegt sein, dass ist egal
das Auslesen der daten bekomme ich hin nur nicht das mit dem Eintrag in die Kunden Tab und das holen der KundenID weil diese Nummer brauche ich für den Verweis in der Buchungen Tab

so klappt es wenn ich nur eine Tab Buchungen hätte - aber es sind eben zwei tabs
Sub Tabschreiben()
Set db = CurrentDb
Set rs = db.OpenRecordset("Buchungen", dbOpenDynaset)
rs.FindFirst "Buchungsnummer = '" & Buchungsnummer & "'"
If rs.NoMatch Then
GoTo anlegen
Else
MsgBox ("Buchumgsnummer: " & Buchungsnummer & " schon vorhanden. Abbruch!")
Exit Sub
End If
anlegen:
rs.AddNew
rs!Vorname = Vorname
rs!Nachname = Nachname
rs!Buchungsnummer = Buchungsnummer
rs!Buchungsdatum = Date
'rs!IhreKennung = IhreKennung
rs!datvon = datvon
rs!datbis = datbis
rs!AnzPersonen = AnzPersonen
rs!AnzHaustiere = Haustier
rs!Mietgutschrift = Preis
rs!Kinderhochstuhl = Kinderhochstuhl
rs!Kinderreisebett = Kinderreisebett
rs!Bettwaesche = Bettwaesche
rs!Frottee = Frottee
rs!frueh = frueh
rs!spaet = spaet
rs.Update
Vorname = ""
Nachname = ""
Buchungsnummer = ""
datvon = ""
datbis = ""
' ReDim AnzPersonen(1)
AnzPersonen = 0
Haustier = 0
Preis = 0
Kinderhochstuhl = 0
Kinderreisebett = 0
Bettwaesche = 0
Frottee = 0
frueh = 0
spaet = 0
End Sub
Moderator