ник: Leonid
Например, делаете поле, в котором будете вводить данные фильтра
На событие Change этого поля вешаете, что-то подобное:
dim s as string
if me!ИмяФильтра.text = vbnullstring then
s="*"
else
s=me!ИмяФильтра.text + "*"
endif
me.recordsource = "SELECT * FROM ИмяТаблицы WHERE Город LIKE " + s
|