can you help one more time in ACCESS 2003-97 dynamic query VBA

Sorry,
i feel very confused I am bad I have zero points in software building and if I find not the solution for tomorrow I can be rejected from the firm.

Capricorn 1 gave me the solution for the filtering of a report . It was the solution you suggested.

The problem is I must do also a filtering for the excel extraction.

So I builded a query and i don't know how to build a dynamic filter.

I have search on internet all the morning and I found a solution but for that I must have
an object which  exists not on ACCESS 2003. More my firm has ACCESS 1997.
The solution I've not successfully tried was


Dim sFilter As String


If Me.cboYear.ListIndex <> -1 Then
    If sFilter = "" Then
        sFilter = "[year]= " & Me.cboYear & ""
        Else
        sFilter = sFilter & " And [year]=" & Me.cboYear & ""
    End If
End If
If Me.cboUnit.ListIndex <> -1 Then
    If sFilter = "" Then
        sFilter = "[unit]= '" & Me.cboUnit & "'"
        Else
        sFilter = sFilter & " And [unit]='" & Me.cboUnit & "'"
    End If
End If
If Me.cboManager.ListIndex <> -1 Then
    If sFilter = "" Then
        sFilter = "[manager]= '" & Me.cboManager & "'"
        Else
        sFilter = sFilter & " And [manager]='" & Me.cboManager & "'"
    End If
End If

DoCmd.OpenReport "report1", acViewPreview, , sFilter


Dim sqltext As String
If (sFilter <> "") Then
sqltext = "select unit from unit where " & sFilter
Else
sqltext = "select unit from unit "
End If

Set QueryDef = Object.CreateQueryDef("qryName", "sqltext")

DoCmd.OutputTo acOutputQuery, "qryName", sFilter, acFormatXLS, "c:\extract-manager.xls"

So please if you could helpStart Free Trial