Добрый день.

Среда разработки: VB6, SP6. База - *.mdf ACCESS 2000. DAO 3.60.

Итак, имеется некая база, имеем коннект и запрос.

sSQL = "SELECT TOP 72 * FROM BR_1 ORDER BY BAR_ID"

Set db = dao.OpenDatabase(DBPath)
Set rs = db.OpenRecordset(sSQL)

recCount = rs.RecordCount

recCount равен 1 после этого запроса.

Однако же, при следующем запросе

sSQL = "SELECT * FROM BR_1 ORDER BY BAR_ID"

Set db = dao.OpenDatabase(DBPath)
Set rs = db.OpenRecordset(sSQL)

recCount = rs.RecordCount

recCount равен кол-ву записей, более 20 000, что соответствует действительности.

Кто-нибудь посоветует, как вылечить этот баг?

Вариант со сдвигом MoveLast и последовательной переборкой MovePrevious уж очень не хотелось бы применять.

HandKot, большое спасибо!!!

Akina, читал, разумеется, но невнимательно.