时间累加问题

Private Sub Command1_Click()str1 = "select cdate(sum (工作工时) )from 运送员工工作 where 姓名 ='" & Combo1.Text & "' and 运送日期>=cdate('" & CDate(DTPicker1.Value) & "') and 运送日期<=cdate('" & CDate(DTPicker2.Value) & "')"
Adodc2.RecordSource = str1
Adodc2.Refresh '刷新
Set DataGrid2.DataSource = Adodc2
'DataGrid2.Refresh '刷新
Label5.Caption = "统计结果:在这段时间共工作了"
Label8.Caption = Adodc2.Recordset.Fields(0)
时间累加起来
这样加起来如果sum超过24小时会出错，变成Label8.Caption变成1899-12-314:20:20
怎么克服？？