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
 
    LDat_speichern.AddNew
 
'Speichert den LehrerName
    LDat_speichern!LehrerName = Lehrer
 
    For i = 0 To 7
'Speichert die Sääle
        LDat_speichern!SaalNRMO = MOSaal(i)
        LDat_speichern!SaalNRDI = DISaal(i)
        LDat_speichern!SaalNRMI = MISaal(i)
        LDat_speichern!SaalNRDO = DOSaal(i)
        LDat_speichern!SaalNRFR = FRSaal(i)
 
'Speichert die Klassen
        LDat_speichern!KlassenAbKMO = MoKlasse(i)
        LDat_speichern!KlassenAbKDI = DiKlasse(i)
        LDat_speichern!KlassenAbKMI = MiKLasse(i)
        LDat_speichern!KlassenAbKDO = DoKLasse(i)
        LDat_speichern!KlassenAbKFR = FrKlasse(i)
 
'Speichert die Fächer
        LDat_speichern!FächerAbKMO = MoFach(i)
        LDat_speichern!FächerAbKDI = DiFach(i)
        LDat_speichern!FächerAbKMI = MiFach(i)
        LDat_speichern!FächerAbKDO = DoFach(i)
        LDat_speichern!FächerAbKFR = FrFach(i)
 
    Next i
 
     LDat_speichern.Update
     LDat_speichern.Close
    MsgBox ("Eintragungen wurden gespeichert!!!")
Else
        MsgBox ("Eintragungen wurden nicht gespeichert!!!")
End If
Unload Me
End Sub