VedIkkePåListe problem

I forlængelse af mit spørgsmål i går, se http://www.eksperten.dk/spm/457577 har jeg et nyt problem. Jeg vil gerne kunne tilføje nye kunder og kontaktpersoner ved hjælp af en VedIkkePåListe hændelse. Det går fint med kunden, men hvordan får jeg tilføjet nye kontaktpersoner til de rigtige kunder?
Jeg bruger denne kode ved kunde-comboboxens VedIkkePåListe hændelse:

    Response = acDataErrContinue
    Prompt = "Denne kunde står ikke på listen, vil du tilføje den?"

    If MsgBox(Prompt, vbYesNo, "Kunden findes ikke!") = vbYes Then
        DoCmd.RunSQL "INSERT into tblKunder (Kunde) VALUES ('" & NewData & "')"
        DoCmd.RunSQL "INSERT into tblKundekontakt (Kunde) VALUES ('" & NewData & "')"
        Response = acDataErrAdded
    End If

Så står det nye kundenavn både i kunde-tabellen og kundekontakt-tabellen. Men hvad så?
Jeg har lavet en kundeformular med en underformular med kontaktpersonerne, den kan måske bruges?