I have a form with a combo box for the user to select criteria to open a
report. The following code works but I want to add the criteria that the
records displayed only the current year not all years. Any help will be
appreciated.

Private Sub cmdListCodes_Click()
Dim strFilter As String
Dim varItem As Variant

With lstCodeNumbers
If .MultiSelect = 0 Then
strFilter = "[code] = " & .Value
Else
For Each varItem In .ItemsSelected
strFilter = strFilter & "," & .ItemData(varItem)
Next varItem

If Len(strFilter) 0 Then
If .ItemsSelected.Count = 1 Then
strFilter = "[code] = " & Mid$(strFilter, 2)
Else
strFilter = "[code] In(" & Mid$(strFilter, 2) & ")"
End If
End If
End If
End With

'Clear the listbox selected items
With lstCodeNumbers
For Each varItem In .ItemsSelected
.Selected(varItem) = False
Next varItem
End With

'Open the report with the selected Codes
DoCmd.OpenReport "rptTestDescCode", acViewPreview, WhereCondition:=strFilter

End Sub