难死我了,一个money字段在MSHFLEXGRID中居然带了17个小数位

Question

Set query_addlog_rs = New ADODB.Recordset
                query_addlog_rs.Open "select acard as 卡号,atime as 加钱时间,aadd as 实际金额,agift as 赠送金额,aname as 操作员 from Base_addlog where bname='" & Trim(Text1.Text) & "'and  atime between '" & Format(DTPicker1.value, "yy/m/d") & "'and '" & Format(DTPicker2.value + 1, "yy/m/d") & "' union select" & "'合计','" & DTPicker2.value & "',sum(aadd),sum(agift),'' from Base_addlog where bname='" & Trim(Text1.Text) & "' and  atime between '" & Format(DTPicker1.value, "yy/m/d") & "'and '" & Format(DTPicker2.value + 1, "yy/m/d") & "'", conn, adOpenStatic, adLockOptimistic
                If query_addlog_rs.RecordCount > 0 Then
                    Set MSHFlexGrid2.DataSource = query_addlog_rs
                End If
Base_addlog是个视图，add,agift为money类型，如果直接用表就不会出现这种情况，请问老师怎么解决，不想用别的控件