With nabor

.FindLast "Цена=100"

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

End With

End Sub

Результат:

Пример:

Найти все записи в наборе, удовлетворяющие условию:

Цена>60

Исходная таблица:

Использование метода FindNext, который находит в наборе записей следующую, удовлетворяющую условиям и делает её текущей.

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