[AccessD] Opening Recordset Error

Can someone see what I am missing here?  I keep getting the error: "Too few
Parameters: Expected 1"

Dim intCounter As Integer
Dim rstFunded As DAO.Recordset
Dim dbFunded As DAO.Database
Dim strFunded As String
strFunded = "SELECT Sum([tblInvoiceFunding.FundsFromCode]) AS Funded"
strFunded = strFunded & " , tblInvoiceFunding.InvoiceID FROM
tblInvoiceFunding GROUP BY tblInvoiceFunding.InvoiceID"
strFunded = strFunded & " HAVING
(((tblInvoiceFunding.InvoiceID)=[Forms]![frmInvoiceDataEntry]![txtINVOICE_ID
]))"
Set dbFunded = CurrentDb()
Set rstFunded = dbFunded.OpenRecordset(strFunded, dbOpenDynaset, dbReadOnly)

TIA,
Nancy L