Private Sub Rechnen()
 
Dim TimeVon As String, TimeBis As String, SummeMinuten As Long
  SummeMinuten = 0
    ADOrs.MoveFirst '--- springt zum ersten Record
 
    Do While Not ADOrs.EOF   'Beginn deiner Schleife zur Übergabe der Zeiten 
    ' aus deinem Recordset
 
      TimeVon = ADOrs!Datum & ADOrs!Anfang 'vonZeit aus deinem Recordset
      TimeBis = ADOrs!Datum & ADOrs!Ende 'bisZeit aus deinem Recordset
 
      '---bei folgendem Befehl hast du
      '-- 1. Den Interval "n" für Minuten vergessen
      '-- 2. wenn du die Werte direkt übergibst,
      '--    brauchst du die Variablen TimeVon und TimeBis nicht!
      '... also
      'SummeMinuten = SummeMinuten + DateDiff(, "15.11.03" & ADOrs!Anfang, 
      ' "15.11.03" & ADOrs!Ende)
 
      SummeMinuten = SummeMinuten + DateDiff("n", TimeVon, TimeBis)
 
      ADOrs.MoveNext '---zum nächsten Datensatz
 
    Loop
 
 
 
    txtKontostand.Text = Umrechnen_der_Minuten(SummeMinuten)
 
End Sub
 
 
 
Private Function Umrechnen_der_Minuten(ByVal nMin As Long) As String
 
    Dim nH As Long, nM As Long '---geändert von String nach Long
 
    nH = Fix(nMin / 60)        '-- dadurch entfallen hier die
 
    nM = nMin Mod 60           '-- Stringkonvertierungen (Cstr())
 
    Umrechnen_der_Minuten = "Gesamtzeit_ " & nH & " Stunden und " & nM & "" & _
      "Minuten"
 
End Function
 
 
'Kannst du kicken! Wird nichtmehr gebraucht
'Private Function ZeitSumme(ByVal Zeit1 As Variant, ByVal Zeit2 As Variant, 
' Optional DatumAusgeben As Boolean = False)
'
'    ZeitSumme = TimeValue(TimeValue(Zeit1) + TimeValue(Zeit2))
'
'    If DatumAusgeben Then ZeitSumme = DateValue(DateAdd("D", DateDiff("d", 
' Zeit1, Zeit2), Zeit1)) & "  " & ZeitSumme
'
'End Function