主题：小数点设置问题

以下代码是动态生成TopicBar带统计数字显示的其中代码

Dim cnt7 As Integer = DataTables("订单").Compute("Sum(订单总价)","下单日期  >= #"  & DateTime.Today & "# and 下单日期 < #" & DateTime.Today.AddDays(1) & "#")

请教老师，如何修改这条代码，让SUM统计后是666.53，而不是667