Dim basa As Database, nabor As Recordset, s As String

Set basa = CurrentDb

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

With nabor

.FindLast "Цена>60"

Do Until.NoMatch

s = s &! Товар & " " &! Цена & " " &!Поставщик & vbCr

.FindPrevious "Цена>60"

Loop

End With

MsgBox s

End Sub

Применение метода GetRows

Объекта Recordset

Пример:

Скопировать в двумерный массив первые 3 записи из таблицы «Товары» и вывести их в окно Immediate.

Private Sub Кнопка0_Click()