Dim qrystr, y As String
qrystr = "SELECT SUM(Invoice_Log.Total_Orders_Processed) AS NoOrders,"
qrystr = qrystr & " #" & Format(Invoice_Log.invoice_date, "yyyymm") & "# AS orderMonth From invoice_log"
qrystr = qrystr & "GROUP BY #" & Format(invoice_date, "yyyymm") & "#"
qrystr = qrystr & "...