FAZER UM SELECT SUM DE HORAS

           Dim vServico As String
         Dim vValorServ As Currency
         Dim vSomaTemp As Date


   ListServicos.ListItems.Clear
         ConnectDB
             rs.Open "Select bDescricaoServ, SUM(bValorServ)as vValorServ, SUM(bTempoTotal)as vSomaTemp, Count(bDescricaoServ)as vServico From TbCadServicoList Where bCodCliente Like"" & Replace(vCodCliente, """, "") & "%" Group By bDescricaoServ Order by bDescricaoServ ASC", db, 2, 4

                    Do Until rs.EOF
                         Set Item = ListServicos.ListItems.Add(, , "" & ListServicos.ListItems.Count + 1)
                             Item.SubItems(1) = "" & rs!bDescricaoServ
                             Item.SubItems(2) = "" & rs.Fields("vServico")
                             Item.SubItems(3) = "" & Format(rs.Fields("vValorServ"), "currency")
                             Item.SubItems(4) = "" & Format(TimeValue(vSomaTemp), "hh:mm")  """<<<<<<<<<<<  QUERO SOMAR ESTE CAMPO EM HORAS FORMATO DA  MYSQL ESTA 1:30 
                             rs.MoveNext
                      Loop
          FechaDB