Sub ShowSalesBySalesPerson(MyStart As String, MyEnd As String)
Dim Query As String
Query = "SELECT DISTINCT(Sales_Person) As [Sales Person], Store AS [Store], SUM(Units_Sold) As [Units Sold], SUM(Total_Retail) As [Total Retail] FROM sales_end_user WHERE Sale_Date BETWEEN " & MyStart & " AND " & MyEnd & " GROUP BY Sales_Person ORDER BY Store"
wbvQuery.LoadHtml(ExecuteHtml(SQL1, Query, Null, 0, True))
wbvQuery.Visible=True
End Sub