Sub ShowSalesAllTotals
Dim Query As String
Query = "SELECT DISTINCT barcode As [BARCODE], description As [PRODUCT], SUM(units) As [SALES], date As [LAST SALES DATE] FROM transactions WHERE units <> '0' ORDER BY description"
wbvManagerSales.LoadHtml(ExecuteHtml(SQL1, Query, Null, 0, True))
End Sub