sSql = "SELECT * FROM agenda_zeiten WHERE day=1 ORDER BY von ASC"
            If dbQuery = "ok" Then
                With oRs
                    ReDim q(0 To 4)
                    Do While Not .EOF
                        q(0) = .Fields("id").Value
                        q(1) = .Fields("day").Value
                        q(2) = Right(.Fields("von").Value, 8)
                        q(3) = Right(.Fields("bis").Value, 8)   <-- HIER TRITT _
                          DER FEHLER AUF
                        q(4) = .Fields("bgcolor").Value
                        If CDate(q(3)) < CDate(q(2)) Then q(3) = DateAdd("h", _
                          1, CDate(q(2)))  <-- Überbrückung des Fehlers ;-)
                        temp = "INSERT INTO agenda_zeiten VALUES(" & q(0) & "," _
                        & q(1) & ",'" & q(2) & "','" & q(3) & "','" & q(4) & _
                        "')"
                        Print #f, temp
                        .MoveNext
                    Loop
                    .Close
                End With
                Set oRs = Nothing
            End If