Private Sub cmdspeichern_Click()
Dim Db As Database
Dim Tabelle As ADODB.Recordset
Dim dbFile As String
Dim Antwort As String
    Antwort = MsgBox("Wirklich speichern?", vbQuestion + vbOKCancel)
    If txtaufgabe = "" Then
        MsgBox "Keine Aufgabe eingegeben!"
        txtaufgabe.SetFocus
        Exit Sub
    End If
    If Antwort = vbOK Then
        'Datenbank öffnen
        dbFile = App.Path + "\Termine.MDB"
        Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
        Set Tabelle = Db.OpenRecordset("Datenbank1")
        'Neuen Datensatz hinzufügen
        Tabelle.AddNew
        Tabelle("Zu erledigen") = txtaufgabe.Text
        Tabelle("Datum") = lbldatum
        Tabelle("Firmenname") = lblfirmenname
        Tabelle.Update
        txtaufgabe = ""
        'Datenbank schließen
        Tabelle.Close
        Db.Close
        Set Tabelle = Nothing
        Set Db = Nothing
    End If
    frmLOTP.Show
    Unload Me
End Sub