'Erstelle jeweils eine Liste mit den möglichen Einträgen
'in der korrekten Reihenfolge: 
Dim cbolst As New List(Of String)
cbolst.AddRange({"E1", "E2", "E3", "E4"})
 
'Binde diese Listen jeweils an eine Combobox ("cbo"):
cbo.DataSource = cbolst
 
'Vor Erstellen des neuen Datensatzes
'den gewünschten Eintrag in den Comboboxen wählen
 
'Übertrage beim Erstellen des neuen Datensatzes
'jeweils den aktuell gewählten Index der Comboboxen:
.combo2ID = cbo.selectedindex