Office: Listenfeld aus Textfeld heraus füllen

Hallo
Ich möchte gern mittels einem Listenfeld auf eine Auswahl an "Texten" (Text Bausteine) die sich oft widerholen zugreifen können und diese in ein MEMO Feld im Formular einfügen. Das klappt soweit auch. Nun möchte ich aber zwei Textfelder im Formular einbinden, wo ich das Listenfeld um Einträge ergänzen kann. Das funktioniert bzgl. einer Spalte ohne Probleme, aber ich möchte ja in einer Spalte eine Art Kürzel eingeben und in der zweiten den ausführlichen Text. Leider bekomme ich es nicht hin, dass ich in zwei Spalten schreiben kann.

Hier mein Code um in eine Spalte zu schreiben:

If Len(Me!Text45) > 0 Then _
CurrentDb.Execute "INSERT INTO tab_auswahl01 ( txf_Text01 ) SELECT '" & Me!Text45 & "'"
Me!Liste40.Requery

Das funktioniert.

Aber gleichzeitig in zwei Spalten bekomm ich nicht hin. Kann mir da vielleicht jemand helfen?

If Len(Me!Text42) > 0 Then _
CurrentDb.Execute "INSERT INTO tab_auswahl01 ( txf_Text01 ) SELECT '" & Me!Text42 & "'" And (txf_Text02) " & Me!Text45 & "'"

Me!Liste40.Requery

 

Hallo
Hab es geschafft. Falls es jemand mal nützt, hier meine Lösung.

CurrentDb.Execute "INSERT INTO tab_auswahl01 ( txf_Text01, txf_Text02 ) SELECT '" & Me!Text42 & "','" & Me!Text45 & "'"

Gruß