Private Sub Speichern_Click()
 
    Dim LDat_speichern As New ADODB.Recordset
 
    With LDat_speichern
        .ActiveConnection = DB
        .Source = "StdpLehr"
        .LockType = adLockOptimistic
        .Open Options:=adCmdTable
    End With
 
If (MsgBox("Sollen ihre Angaben gespeichert werden ?", vbYesNo)) = vbYes Then
    With LDat_speichern
        For i = 0 To 7
            .Addnew
            !LehrerName = Lehrer
    'Speichert die Sääle
            !SaalNRMO = MOSaal(i)
            !SaalNRDI = DISaal(i)
            !SaalNRMI = MISaal(i)
            !SaalNRDO = DOSaal(i)
            !SaalNRFR = FRSaal(i)
 
    'Speichert die Klassen
            !KlassenAbKMO = MoKlasse(i)
            !KlassenAbKDI = DiKlasse(i)
            !KlassenAbKMI = MiKLasse(i)
            !KlassenAbKDO = DoKLasse(i)
            !KlassenAbKFR = FrKlasse(i)
 
    'Speichert die Fächer
            !FächerAbKMO = MoFach(i)
            !FächerAbKDI = DiFach(i)
            !FächerAbKMI = MiFach(i)
            !FächerAbKDO = DoFach(i)
            !FächerAbKFR = FrFach(i)
 
            .Update
        Next i
 
        .Close
     End With
     MsgBox ("Eintragungen wurden gespeichert!!!")
Else
        MsgBox ("Eintragungen wurden nicht gespeichert!!!")
End If
Unload Me
End Sub