Using a query with a form reference in DAO

[birdDBheadache]

I am trying to use a query with a form reference in DAO, but it does not return any records. Here is my code:

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs1 As DAO.Recordset
 
    Set db = CurrentDb()
    Set qdf = db.QueryDefs("qry_Species_by_park_by_year")
    qdf.Parameters(0) = Forms!Occu_formatting!Park
    qdf.Parameters(1) = Year(Forms!Occu_formatting!survey_begin_date)
    qdf.Parameters(2) = Forms!Occu_formatting!obs_inits
    Set rs1 = qdf.OpenRecordset
 
    If rs1.RecordCount = 0 Then
        MsgBox ("No records in query")
        Exit Sub
    End If

I have a suspicion it might be because I am trying to use the Year function.

Also, when I run the query with the same parameters in Access I get exactly what I need.

[birdDBheadache]

I solved my own problem!

The answer is that the Year function was causing the problem. To get around this issue, I created an invisible unbound text box in the form that got the year from the date field. Everything else stayed the same except removing the year function from the qdf.paramters(1) line and reassigning it to my new invisible text box.