Hi, I'm having an issue passing a parameter into a query.
The parameter is created within vba and sent into the query, however query not recognising it and asks for same parameter in a "Enter Parameter Value" dialog box.
Code i have is below.

    Dim StartDate As Date, EndDate As Date
    Dim Criteria as String
    Dim db As Database
    Dim Q As QueryDef
    Dim rs As Recordset

    StartDate = DateSerial(Year(Date) - 1, 4, 1)
    EndDate = DateSerial(Year(Date), 3, 31)
    Criteria = "Between #" & StartDate & "# and #" & EndDate & "#"

    Set db = CurrentDb
    Set Q = db.QueryDefs("AccountTransactionWLTQ")
    Q.Parameters("DateParameter") = Criteria
    DoCmd.OpenQuery "AccountTransactionWLTQ"

Parameter set in Criteria under DatePaid field is [DateParameter]