Поиск в рекордсете по Seek от DAO

Вторник, 05 Сентября 2017 г. 02:05 + в цитатник

Делаю поиск сиком в рекордсете. Проблема в поиске всех записей, удовлетворяющих условию. Не получается. Находит только первую из множества возможных в бесконечном цикле. Подскажите, что я делаю не так

        Do While True
            rst.Seek ">=", "значение"
            If Not rst.NoMatch Then
                If rst!oldid <= g1 Then
                    'некоторые действия
                    k = k + 1
                End If
            Else
                Exit Do
            End If
         Loop