Thank you so much. So here is what I have now.
dim dDate as date, startDate as date, endDate as date, msql as string, msqlA as string
startDate = dDate - Weekday(dDate) + 1
endDate = dDate - Weekday(dDate) + 7
msqlA = "SELECT *, DateSerial(ledger.[year], ledger.[month]...