Private Sub cmdOut_Click()
 
    Dim Db As Database
    Dim dbFile As String
    Dim SQL As String
    Dim Rs As Recordset
 
    dbFile = App.Path + "\datenbank2.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    SQL = "SELECT * FROM nachweis where vorname = '" + aname + "'"
    Set Rs = Db.OpenRecordset(SQL)
 
    kstand = Rs("soll") - Rs("gearbeitet")
 
    Rs.Edit
    Rs.Fields("gearbeitet").Value = lblZeit.Caption
    Rs.Fields("konto").Value = kstand
    Rs.Update
End Sub