VBA to select Year from a multi-select list box is not working

I have a split form with several multi-select list boxes in the header used to filter the results in the datasheet.  I build a filter with results of all the list boxes and then apply it to the datasheet.

I have a problem with the first list box selections.  It's a year list.  If I leave it blank, the rest of the code works fine.  But if I choose one or more items from the year list, they are ignored.

I believe it has to do with the way I'm trying to capture the first criteria (if no selection has been made in the year list box). Because if I comment that part out, it works fine except for throwing an error that there's an extraneous "And" in my criteria.

Can someone take a peek and see if it's something obvious I'm coding wrong please?

Sub Search()
Dim strSearch, strCriteria, strYear, strMonth, strStatus, strState, strAM, strREC, strBD As String
Dim task As String
Dim varItem As Variant

'''===========code for Year List Box

If IsNull(Me.lstYear) Or Me.lstYear = "" Then
    strYear = "([DateYear] like ""*"")"
    strCriteria = strYear
Else
   For Each varItem In Me!lstYear.ItemsSelected
    strYear = strYear & "[DateYear] = " & Me!lstYear.ItemData(varItem) & "Or"
Next varItem
    If Len(strYear) > 0 Then
        strYear = Left(strYear, Len(strYear) - 2)
        strCriteria = strCriteria & " And (" & strYear & ")"
    End If

Select all Open in new window

After building the remaining criteria

task = "select * from [qryFinancialsByMonth2] where (" & strCriteria & ")"
Me.FilterOn = True
DoCmd.ApplyFilter task

Select all Open in new window