There should be a better solution out there..but
I would try using a dynamic SQL something like this...
Dim var_Month
For var_Month=1 To 12 Step 1
SQL = "SELECT job_code,style,qty,fabrication,ship_date FROM MyTable WHERE Month(Ship_Date) = " & var_Month & "
'create your recrodset and display your results
Next
|