If strFilterString <> "" Then
        Forms("003_Species.ListSciName").Filter = strFilterString
        Forms("003_Species.ListSciName").FilterOn = True
    Else
        Forms("003_Species.ListSciName").Filter = ""
        Forms("003_Species.ListSciName") = False
    End If
    Forms("003_Species.ListSciName").Requery

Select all