Private Sub Form_Load()
 
Dim db As DAO.Database
Dim recset As DAO.Recordset
Dim nStunden As Long
Dim nMinuten As Long
Dim nSekunden As Long
Dim sDateSplit() As String
 
'Ich habe für das Feld "Zeit" als Datentyp TEXT eingestellt,
'denn nach deiner Formatierung "00:00:00" scheinen deine Stunden
'ins Unendliche fortlaufen zu dürfen, als nix mit 24h = 1 Tag,
'Feldwerte wie 292h, 59min, 59Sek sind wohl erlaubt.
'Aber Sekunden und Minuten werden wir dennoch umrechnen:-)
 
Set db = Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")
 
Set recset = db.OpenRecordset("Select Zeit from Tabelle1")
If Not recset.EOF Then
    recset.MoveFirst
    Do
 
        sDateSplit = Split(recset.Fields("Zeit").Value, ":")
        nStunden = nStunden + sDateSplit(0)
        nMinuten = nMinuten + sDateSplit(1)
        nSekunden = nSekunden + sDateSplit(2)
        recset.MoveNext
    Loop While Not recset.EOF
 
    'das Problem: das Ganze könnte jetzt so aussehen: 123h, 400min, 623Sekunden
    'daher müssen wir jetzt noch die Minuten in den Sekunden von den Sekunden 
    ' abziehen
    'und zu den Minuten addieren, analog dazu das gleiche mit den Stunden in 
    ' den Minuten,
    'alles klar?
 
   Dim SekundenInMinuten As Long
   Dim MinutenInStunden As Long
   Dim RestSekunden As Long
   Dim RestMinuten As Long
 
   SekundenInMinuten = nSekunden / 60                       'die Minuten in den 
   ' Sekunden
   RestSekunden = nSekunden Mod 60                          'Die Rest-Minuten
 
   MinutenInStunden = (nMinuten + SekundenInMinuten) / 60   'Die Stunden in den 
   ' Minuten
   RestMinuten = nMinuten Mod 60                            'Die RestMinuten
 
   MsgBox "Stunden: " & nStunden + MinutenInStunden & vbCrLf & _
          "Minuten: " & RestMinuten + SekundenInMinuten & vbCrLf & _
          "Sekunden: " & RestSekunden
End If
 
End Sub