Dim GewähltesFachInListe As String
        Dim GewählteKlasseInListe As String
        Dim GewählteKassetteInListe As String
 
        'Ausgewählte Einträge 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)
        'Ansicht einstellen: Bereich Film