SQL Parameters run-time 3061

Hello,

In VBA, I'm trying to open a DAO recordset.  I got Run-time error 3061 "Too Few Parameters.  Expected 1".  So I added a parameters clause

"PARAMETERS [ID] string; " _

To the SQL string.  Now I get  "...Expected 2" --??

qryOpenAgedReq  is a Union:

SELECT * FROM tblAgedInvoicesIDFix UNION ALL SELECT * FROM tblRequestedInvoicesIDFix;

Both table have identical fields.

Thanks in advance!

-Omar

Dim db As DAO.DATABASE
Dim SQL As String
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
 
Set db = CurrentDb()
 
SQL = "PARAMETERS [ID] string; " _
    & "SELECT PO, AP_Vendor, Vendor_Name, User_ID_Assigned " _
    & "FROM qryOpenAgedReq " _
    & "Where qryOpenAgedReq.ID = " & ID & ";"
Set qdf = db.CreateQueryDef("", SQL)
Set rst = qdf.OpenRecordset

Select all Open in new window