ник: snipe
правим запрос под свои нужды
CurrentDb.QueryDefs("Запрос1").SQL = "Select......From.....Where Таблица.Поле in(" & Forms!форма1!поле1 & ")"
открываем запрос любым удобным способом
в поле на форме данные вводить через запятую
если текст - то выделять апострофами ( ' )