executing query in VB (1 Viewer)

Insert into Hourly_Count SELECT StoreNo, Date, Sum([12:00AM]) AS 12AM, Sum([1:00AM]) AS 1AM, Sum([2:00AM]) AS 2AM, Sum([3:00AM]) AS 3AM, Sum([4:00AM]) AS 4AM,  Sum([5:00AM]) AS 5AM, Sum([6:00AM]) AS 6AM, Sum([7:00AM]) AS 7AM, Sum([8:00AM]) AS 8AM, Sum([9:00AM]) AS 9AM, Sum([10:00AM]) AS 10AM, Sum([11:00AM]) AS 11AM, Sum([12:00PM]) AS 12PM, Sum([1:00PM]) AS 1PM, Sum([2:00PM]) AS 2PM, Sum([3:00PM]) AS 3PM, Sum([4:00PM]) AS 4PM, Sum([5:00PM]) AS 5PM, Sum([6:00PM]) AS 6PM, Sum([7:00PM]) AS 7PM, Sum([8:00PM]) AS 8PM, Sum([9:00PM]) AS 9PM, Sum([10:00PM]) AS 10PM, Sum([11:00PM]) AS 11PM FROM TABLE_A where date between #7/25/2005# and #7/19/2005# and storeno=1 GROUP BY StoreNo, Date ORDER BY Date