Dim GewähltesFachInListe As String
        Dim GewählteKlasseInListe As String
        Dim GewählteKassetteInListe As String
 
        'Ausgewählte Einträge aus 3 Listbox speichern 
        GewähltesFachInListe = Me.cbID_Fach.Text
        GewählteKlasseInListe = Me.cbID_Klasse.Text
        GewählteKassetteInListe = Me.cbID_Kassette.Text
 
        'Aktualisieren
        Me.OleDbDataAdapter2.Update(Me.objdsMaster)
        Me.objdsMaster.AcceptChanges()
 
        'Neuen Eintrag auswählen
        Me.cbID_Fach.SelectedIndex = Me.cbID_Fach.FindString( _
          GewähltesFachInListe)
        Me.cbID_Klasse.SelectedIndex = Me.cbID_Klasse.FindString  _
        (GewählteKlasseInListe)
        Me.cbID_Kassette.SelectedIndex = Me.cbID_Kassette.FindString _
        (GewählteKassetteInListe)
...