- Код: Выделить всё
Set rst = db.OpenRecordset("SELECT Pole FROM " & pathSelect & ".[табл1] WHERE " & _
"(Pole Between (Like '*" & CStr(Forms("Основа")!ПолеСоСписком25) & "') And (Like '*" & _
CStr(Forms("Основа")!ПолеСоСписком27) & "'))", dbOpenDynaset)