Dim datum1 As String
Dim datum2 As String
 
 
datum1 = DTPicker1.Value
datum2 = DTPicker2.Value
 
datum1 = CDate(datum1)
datum2 = CDate(datum2)
 
Dim wert As Integer
wert = CInt(lbl_mitarbeiternr.Caption)
 
Dim wert2 As String
wert2 = lbl_kostenstellenr.Caption
 
oRs.Open "SELECT SUM(Stunden) AS [Std], Sum(Minuten) AS [Min]" & _
"FROM Zeiterfassung WHERE Datum BETWEEN #" & _
  Format$(datum1, "m-d-yy") & "# AND #" & _
  Format$(datum2, "m-d-yy") & "#" And mitarbeiter = " & wert & " & "" _
  And kostenstellenr = " & wert2 & """
 
Dim Gesamtstd As String
Dim Gesamtmin As String
 
Gesamtstd = FeldInhalt(oRs![std])
Gesamtmin = FeldInhalt(oRs![min])
 
lbl_std.Caption = Gesamtstd
lbl_min.Caption = Gesamtmin
 
oRs.Close