Private Sub cmdspeichern_Click()
Dim Db As Database
Dim Tabelle As DAO.Recordset
Dim dbFile As String
Dim Antwort As String
Dim i As Integer
 
    Antwort = MsgBox("Wirklich speichern?", vbQuestion + vbOKCancel)
    If txtaufgabe = "" Then
        MsgBox "Keine Aufgabe eingegeben!"
        txtaufgabe.SetFocus
        Exit Sub
    End If
 
    dbFile = "\\pdc\company\l-office\loffice\daten\termine.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Datenbank1")
 
    If Antwort = vbOK Then
        i = 0
        Do While i < List1.ListCount
            If List1.Selected(i) Then
                ' Neuen Datensatz hinzufügen
                Tabelle.AddNew
                Tabelle("Zu erledigen") = txtaufgabe.Text
                Tabelle("Datum") = lblDatum
                Tabelle("Firmenname") = List1.Text
                Tabelle("Kuerzel") = lblkuerzel
                Tabelle.Update
                List1.RemoveItem i
                Else
                    i = i + 1
            End If
        Loop
        'Neuen Datensatz hinzufügen
        Tabelle.AddNew
        Tabelle("Zu erledigen") = txtaufgabe.Text
        Tabelle("Datum") = lblDatum
        Tabelle("Firmenname") = lblfirmenname
        Tabelle("Kuerzel") = lblkuerzel
        Tabelle.Update
        txtaufgabe = ""
    End If
 
    Tabelle.Close
    Db.Close
    frmLOTP.Show
    frmLOTP.Check
    Set Tabelle = Nothing
    Set Db = Nothing
    Unload Me
End Sub