Ajuda com formatação resultante de Consulta

Bom Dia Fiz Uma Consulta para pegar uma soma de valor resultante da Consulta ao banco msql e estou com um problema . o valor vindo para o display não vem formatado.

segue abaixo o codigo usado para pesquisa

Table = xc_cronometro.Fonte_Timer.Item("Hist_HD").TableName

Set Consulta = xc_Cronometro.Item("Consulta1")

Consulta.SQL  =  "Select SUM(HorasD)as somaHoras60 FROM " &Table& _
                " WHERE E3TimeStamp >= #<%DataInicial%># AND E3TimeStamp <= #<%DataFinal%># "

Consulta.SetVariableValue “DataInicial”, now-1/24
Consulta.SetVariableValue “DataFinal”, Now

    Set rec = Consulta.GetADORecordset()
    
    
 If IsNull(rec.Fields.Item("somaHoras60").Value) then
 
 Value = "00:00:00"
 
 else

Value = CStr(rec.Fields.Item("somaHoras60").Value) 
Format = "H:mm:ss"
end if    

preciso que ele pegue a soma do campo no banco ( funcionando normalmente) e me devolva em forma de tempo.h:mm:ss
mas o mesmo me retorna conforme imagem abaixo

forma como o histórico está salvando os dados no banco: 0,000173611111111111 campo double do historico

coloquei um cdate no lugar do cstr e parece que funcionou