Can't be. It will only show 2 fraction digits.
Please post the relevant code and the logs.
Private StoreTotal as Double
Sub Download_Click
TableView1.Items.Clear
Dim RS As ResultSet = sql1.ExecQuery("Select d.EndDate, n.DeptName, d.SellInc, d.GP from DailyDeptSales d, Dept n, Store s where d.DeptCode = n.DeptCode and d.StoreCode = s.Code and StoreCode = ' " & StoreCode & " ' and EndDate=' " & SalesDate & " ' ")
Do While RS.NextRow
Log(RS.GetString("DeptName") & ", " & RS.GetString("SellInc") & ", " & RS.GetString("GP"))
Dim Row() As Object = Array (RS.GetString("DeptName"), "$" & RS.GetString("SellInc"), RS.GetString("GP"))
TableView1.Items.Add(Row)
StoreTotal=RS.GetString("SellInc") + StoreTotal
Loop
RS.Close
Log(NumberFormat2(StoreTotal, 0, 2, 2, False))
Total.Text= "$" & StoreTotal
Total.Visible=True
StoreTotal = 0
End Sub