Dim gesammt As Date
 
Set conn = New ADODB.Connection
Set rstKunden = New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "Data Source= " & DatenbankPfad
rstKunden.CursorType = adOpenKeyset
rstKunden.LockType = adLockOptimistic
rstKunden.Open "SELECT * FROM tbl_Kunden ORDER BY Firma, Kontakt_am", conn
 
rstKunden.MoveFirst
 
Do Until rstKunden.EOF
   gesammt = (gesammt + rstKunden!Dauer_ges)
   rstKunden.MoveNext
Loop