Estes códigos teve ajuda dos compaheiro do vbweb.Onde foi
abordado calculos de horas.
Foi feito em Dao,mas pode ser modificado para Ado

    Dim ws As Workspace
    Dim Db As Dao.Database
    Dim Rs As Dao.Recordset

Private Sub Command1_Click()
CalcularHoras
End Sub

Private Sub Form_Load()
 Set ws = DBEngine.Workspaces(0)
    Set Db = ws.OpenDatabase(App.path & "SeuBanco.mdb", False, False)
    'Set Rs = Db.OpenRecordset("Produto", dbOpenTable)
   ' Rs.Index = "Primarykey"
End Sub
Private Sub CalcularHoras()
Dim totalhours As Long, totalminutes As Long
 Dim days As Long, hours As Long, minutes As Long
 Dim interval As Variant
 
 
 Set Rs = Db.OpenRecordset("SuaTabela")
 interval = #12:00:00 AM#
   
    While Not Rs.EOF
       interval = interval + (Rs![HoradeFim] - Rs![HoradeInicio])
       'rs![HoradeInicio] Hora de Abertura da Embalagem
       'rs![HoradeFim]    Hora que acabou o produto
       Rs.MoveNext
    Wend
 
    totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
  minutes = totalminutes Mod 60
  Seconds = totalseconds Mod 60
 hours = totalhours Mod 24
  
 Hora = Str(totalhours) & ":"
AumentaZero = Right$("0" & Trim(Str(Trim(minutes))) & ":", 3)
Hora = Hora & AumentaZero
AumentaZero = Right$("0" & Trim(Str(Trim(Seconds))) & "", 2)
Hora = Hora & AumentaZero
 
Label1.Caption = Hora