Dim basa As Database, nabor As Recordset, Массив As Variant, i, j As Byte

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)

With nabor

Массив =.GetRows(3) 'копируем 3 записи в массив

End With

For i = 0 To UBound(Массив, 2)

For j = 0 To UBound(Массив, 1)

Debug.Print Массив(j, i) & " ";

Next j

Debug.Print vbch

Next i

End Sub

Результат:

Глава 21. Объекты QueryDef

Объект QueryDef представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.