main_start.kunden_kontakte.RecordSource = "SELECT * FROM Kunden_Kontakte WHERE" & _
  "kunden_id = " & kunden_id
 
kunden_kontakte.Refresh
 
While kunden_kontakte.Recordset.EOF = False
    kontakte_liste.AddItem kunden_kontakte.Recordset.Fields("kontakt_id")
    kunden_kontakte.Recordset.MoveNext
Wend

kunden_id = kunden_daten.Recordset.Fields("kunden_id")
anliegen = anliegen.Text
bemerkung = Text2(4).Text
datum = Text7.Text
 
main_start.kunden_kontakte.RecordSource = "INSERT INTO Kunden_Kontakte(" & _
  "kunden_id, anliegen, bemerkung, datum) VALUES(kunden_id, anliegen," & _
  "bemerkung, datum)"
 
kunden_kontakte.Refresh