Set basa = CurrentDb
s = "SELECT * FROM Товары WHERE Цена>80 and цена <130"
Set zapros = basa.CreateQueryDef("Запрос1", s)
DoCmd.OpenQuery ("Запрос1")
basa.QueryDefs.Delete "Запрос1"
Set basa = Nothing
Пример:
Получить из таблицы «Товары» все записи по полю Поставщик от значения =”Красный Октябрь” до значения “Тверьрыба”. Выбрать только поля: название товара, поставщик.