How to manually tell the recordset the parameter of my query ?

I created the following query named qryIRAFall:

SELECT ...
FROM tblStatesAll INNER JOIN (tblCustomers INNER JOIN tblProducts ON tblCustomers.CustomerNumber=tblProducts.CustomerNumber) ON tblStatesAll.StateFS=tblCustomers.State
WHERE (tblCustomers.DateOfBirth<=DateSerial(IIf(Forms!frmCustomRpt!lstYears.Value="ALL",Year(Now()),Forms!frmCustomRpt!lstYears.Value)-(tblStatesAll.IRAFS+71),12,31) And tblStatesAll.FallCycle=Yes And LEN(tblProducts.IRACode)>0) Or (IsNull(tblCustomers.DateOfBirth) And tblStatesAll.FallCycle=Yes);

This query is passed through to an Excel format via the following sub procedure:

Private Sub IRAQueryFall()
 
    Dim rstQueryFS As ADODB.Recordset
    Dim objXL As Excel.Application
    Dim objWS As Excel.Worksheet
    Dim fld As ADODB.Field
    Dim intCol As Integer
    Dim intRow As Integer
   
           
    Set rstQueryFS = New ADODB.Recordset
      Set rstQueryFS = CurrentProject.Connection.Execute("qryIRAFall", , adCmdStoredProc)
      Set objXL = New Excel.Application
      objXL.Workbooks.Add
      strNextFile = GetNextFileName("C:\IRA1.XLS")
      objXL.ActiveWorkbook.SaveAs strNextFile
      Set objWS = objXL.ActiveSheet
      objXL.ActiveSheet.Protect UserInterfaceOnly:=True
                 
      For intCol = 0 To rstQueryFS.Fields.Count - 1
        Set fld = rstQueryFS.Fields(intCol)
        objWS.Cells(1, intCol + 1) = fld.Name
      Next intCol
     
      intRow = 2
      Do Until rstQueryFS.EOF
        For intCol = 0 To rstQueryFS.Fields.Count - 1
           
           objWS.Cells(intRow, intCol + 1) = _
              rstQueryFS.Fields(intCol).Value
           objWS.Cells.EntireColumn.AutoFit

        Next intCol
        rstQueryFS.MoveNext
        intRow = intRow + 1
      Loop
      DoCmd.Hourglass False
       
      objXL.Visible = True
           
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
I understand that now I need to manually tell the recordset the parameter I'm using.

I have 1 parameter, namely Forms!frmCustomRpt!lstYears.Value.

Could you show me the coding to incorporate this parameter ? Perhaps you could cut and paste my Sub procedure and incoporate the logic to inform the recordset of the parameter.

The value of the parameter Forms!frmCustomRpt!lstYears.Value is dependent upon the selection made by the user from a list box named lstYears.