Create Dynamic Report by Filtering a Crosstab Query from Combo Boxes on Unbound Form

Hi everyone,

I have a crosstab query in my MS Access 2007 database that I would like to filter based upon
user selections from the combo boxes [CmbMonth] and [CmdYear] on an unbound form [frm_show_Monthly_Payment_Records].  

I would like users to make a selection from the two combo boxes (CmbMonth) and [CmdYear] then push a button to view a dynamic report based on the Crosstab query below.

I have the crosstab query/SQL statement (also provided below) working code as shown below.

The problem is that I am unable to get the dynamic report to work. I am receiving the errors shown in Figures 2 & 3 below.

Crosstab Query
=================
PARAMETERS [Forms]![frm_show_Monthly_Payment_Records]![CmbMonth] Text (2), [Forms]![frm_show_Monthly_Payment_Records]![CmdYear] Text (2);
TRANSFORM Sum(PaymentHx.Amount) AS SumOfAmount
SELECT Children.Firstname+' '+UCase(Children.Lastname) AS TheChild
FROM Children INNER JOIN PaymentHx ON Children.childID=PaymentHx.ChildID
WHERE Mid(PaymentHx.PayWeek,1,2)=[Forms]![frm_show_Monthly_Payment_Records]![CmbMonth] And Mid(PaymentHx.PayWeek,7,2)=[Forms]![frm_show_Monthly_Payment_Records]![CmdYear]
GROUP BY Children.Firstname, Children.Lastname
ORDER BY Children.Lastname
PIVOT PaymentHx.PayWeek;


VBA Code for generating dynamic crosstab report
========================================
Private Sub Report_Open(Cancel As Integer)
Dim intI As Integer
 Dim rstReport As Recordset
Dim strQry As String


Set rstReport = CurrentDb.OpenRecordset(Me.RecordSource)
     

'MsgBox "Fields Count" & rs.Fields.Count, vbOKOnly, "Welcome"
 

     For intI = 1 To rstReport.Fields.Count - 1
         Me("Lbl" & intI - 1).Caption = rstReport.Fields(intI).Name
       
      Next intI

     'Place correct controlsource
      For intI = 1 To rstReport.Fields.Count - 1
         Me("Col" & intI - 1).ControlSource = rstReport.Fields(intI).Name
         
     Next intI

     'Place Total field controlsource
      For intI = 1 To rstReport.Fields.Count - 1
         Me("ColTotal" & intI - 1).ControlSource = "=SUM([" & rstReport.Fields(intI).Name & "])"
       
     Next intI

    If rstReport.Fields.Count < 6 Then
            Lbl4.Visible = False
    End If
 
 End Sub

VBA Code for button on form that opens report
========================================
Private Sub cmdShowReport_Click()

DoCmd.OpenReport "Monthly_CrossTab", acViewPreview
DoCmd.Maximize  'Maximize the report window.

End Sub



Figure 1

Figure 2

Figure 3

Figure 4

Figure 5