Прошу помочь. Наверняка мой вопрос - это банальный вопрос новичка..

Sub module1()
Dim query1 As String
Dim db As DAO.Database
Dim res1 As DAO.Recordset
Dim qdf1 As DAO.QueryDef
Dim order_id As String 

query1 = "SELECT order_id, date, client_id FROM orders"

Set db = CurrentDb()
Set qdf1 = db.CreateQueryDef("", query1)
Set res1 = qdf1.OpenRecordset(dbOpenDynaset, dbReadOnly)

Do While Not res1.EOF
    order_id = Nz(res1.Fields("order_id"))
    'здесь будут ещё sql-запросы для получения информации из доп.таблиц
    MsgBox (order_id)
    res1.MoveNext
Loop


End Sub

Сейчас при помощи MsgBox я просто могу убедиться, что sql-запрос действительно выполнился и я получил результат.
Как вывести результат в виде таблицы? Той же самой таблицы, которая отображается, когда нажимаешь F11 и слева в списке таблиц щёлкаешь по какой-нибудь таблице и видишь список всех записей таблицы.

http://www.sql.ru/forum/1088537/kak-vyvesti-rezultat-sql-zaprosa-iz-vba-vyvesti-v-vide-tablicy