Как перебрать записи таблицы Access - VB

Формулировка задачи:

Что-то не могу понять, как выполнить запрос на выборку в Access с помощью vba
Execute - ругается на SELECT, нужно ли коннектится к базе, если я уже использую текущую базу. Использовать предварительно созданный запрос - устану для каждого запроса делать заспрос в Access. Покажите, пожалуйста, пример. Как перебрать записи в результате работы запроса SELECT? Уже битый час пытаюсь найти решение в сети - и нет вариантов. Гугл мысор выдаёт.

Решение задачи: «Как перебрать записи таблицы Access»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> Кнопка0_Click()

    <font color="blue">Dim</font> sSQL <font color="blue">As</font> <font color="blue">String</font>
    
    <font color="00AA00">'здесь строите строку запроса</font>
    sSQL = <font color="teal">"SELECT * FROM Таблица1 WHERE pole1 = '"</font> & <font color="blue">Me</font>.ПолеИзФормы & <font color="teal">"'"</font>
    
    <font color="blue">Dim</font> mdb <font color="blue">As</font> Database
    <font color="blue">Dim</font> rst <font color="blue">As</font> Recordset
    
    <font color="blue">Set</font> mdb = CurrentDb
    <font color="blue">Set</font> rst = mdb.OpenRecordset(sSQL)
    
    <font color="blue">Do</font> <font color="blue">Until</font> rst.EOF
        Debug.<font color="blue">Print</font> rst.Fields(<font color="teal">"имя поля"</font>)
rst.MoveNext
    <font color="blue">Loop</font>
    
    rst.<font color="blue">Close</font>: <font color="blue">Set</font> rst = <font color="blue">Nothing</font>
    mdb.<font color="blue">Close</font>: <font color="blue">Set</font> mdb = <font color="blue">Nothing</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>
                        