Crosstab Queries Parameters Problems

I am running Access 2003
I am get the following Error "Run Time Error 3001 Invalid Argument"

What I am trying to do is append data to a table based off a crosstab query and then open a form which its record source is the table I just append. The code as follows.

Dim qr As QueryDef
Dim dtDate As Date
Dim intPayment As Integer

'Delete old data from temp table
DoCmd.OpenQuery ("qryDeleteTempDrillDown1-Detail")

dtDate = Forms![frmBalance].txtDate
intPayment = FindPaymentCycle(Forms![frmBalance].txtDate)

'append data
Set qr = CurrentDb.QueryDefs("qryDrillDown1-Detail")
qr.Parameters("PaymentCycle") = intPayment
qr.Parameters("DateBalancing") = dtDate
qr.Execute ' THIS IS WHERE I AM GETTING MY ERROR:mad:

DoCmd.OpenForm ("frmDrillDown1-Detail")

The append query is made up of a crosstab query which is made up of a union query, which is made up of 14 separate select queries. 7 of the select queries have the same parameter and the parameter is defined in each of the query. 2 of the seven queries have a second parameter that is the same, which is also defined in their query. I also have the parameters defined in the crosstab query. And I have the parameters defined in my append query.

I don't know why I am getting the error other then my parameters are not being feed through. Any thoughts on this would be greatly appreciated.