CHECK this code out. Using a month lookup table and this code its working. Some changes need to be made for 2005 and on but WOW!
Option Compare Database
Dim cn As ADODB.Connection
Dim rs, rs1, rs2, rsmnth, rsgen As Recordset
Dim Mnth, Yr, Counter, calender As Integer
Dim q1, q2, q3, q4, temp...