вариант (для поля со списком. mdb файл. для adp несколько по другому)
критерии вводятся через пробел. пробел=AND)
варианты дальнейшего применения повкусу.
Private Sub ПолеСоСписком_NotInList(NewData As String, Response As Integer)
………….

str = str & " WHERE " & lik("[имя_поля]", NewData) & ";" (часть текста)
……………………..
Me!ПолеСоСписком.RowSource = str
Response = acDataErrContinue

End Sub

Public Function lik(w, st As Variant)
Dim str, str1, str2 As String
Dim i As Variant
str1 = ""
i = InStr(1, st, " ", 2)
If i <> 0 Then
Do While i > 2
str = str1 & "(" & w & " Like('*" & Mid(st, 1, i - 1) & "*'))"
str1 = " and "
st = Mid(st, i + 1)
lik = lik & str
i = InStr(1, st, " ", 2)
If i = 1 Then Exit Do
Loop
lik = lik & " and (" & w & " Like('*" & st & "*'))"
Else
lik = "(" & w & " Like('*" & st & "*'))"
End If
End Function

если у тебя есть поле в которое вводится фильтр то
1 использование фильтра
а) применение фильтра после ввода всего фильтра - есть преимущества -можно ввести более сложный фильтр. вариант я предложил выше.
б) после ввода каждого символа.
т.е. нужно (к примеру) из списка товара вы брать нужный
у тебя есть названия товара
мыло туалетное 1...
мыло туалетное 2..
и так n раз. фирма торгует косметикой то таких позиций может быть море.
для того чтоб выбрать нужную позицию требуется набрать не информациионную вещь "мыло туалетное " и только потом самое нужное.
я видел такое в фирме пишушей программы для бухг. только список был из названий фирм. названия заводили несколько операторов. одни набирали спереди ООО другие ООО в конце. хоть у них и были правила ввода, но...
им потребовалось найти фирму , которая была у них, все это точно знали.
при мне они искали в программе минут 15 . они - 3 бухгалтера. пытались вспомнить как завели это название. я отдохнул...
поэтому применять такой фильтр не рекомендую.

свой метод я показал выше. и вместо фильтра использую строку для Recordsourse.
как правило для фильтра достаточно ххх AND eee , реже xxx And sss AND ddd
из 5 лет практики .