Dim mdb As Database
    Dim rst As Recordset
    Dim qdf As QueryDef
    
    Set mdb = CurrentDb
    Set qdf = mdb.QueryDefs("Запрос1")              ' если запрос уже создан
    
    Debug.Print qdf.SQL
    
    qdf.Parameters("Начальная Дата") = "16.04.2007" ' если есть параметры
    qdf.Parameters("Конечная Дата") = "18.04.2007"
    
    Set rst = qdf.OpenRecordset()
    
    Do Until rst.EOF
        Debug.Print rst.Fields("имя поля")
        rst.MoveNext
    Loop

DoCmd.RunSQL " текст запроса " ' только не на выборку

Set mdb = CurrentDb()
Set rst = mdb.OpenRecordset(" любой текст запроса ")

CurrentDb.Execute ("UPDATE и так далее")

Private Sub Кнопка0_Click() ' кнопка на форме
    ' это запрос выберет только одну запись из Таблица1
    Dim sSQL As String
    sSQL = "SELECT TOP 1 pole1 FROM Таблица1 WHERE pole1 < " & Me!Поле_Из_Формы & " ORDER BY pole1 DESC"
    Me!ДругоеПолеФормы = CurrentProject.Connection.Execute(sSQL).Fields( 0 )
    
End Sub

Sub Кнопка0_Click()

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