Всем привет!

Не могу понять, процедура всю жизнь работала, сейчас нет. Почему если m=0, то процедура обрывается и переходит к другому модулю, если n>0 все работает, проходит до конца.

Dim OldDb As DAO.Database
    Dim OldTbl As DAO.Recordset

Set OldDb = Workspaces(0).OpenDatabase("C:\Проверка\" & "Отчет.mdb")
    
Set OldTbl = OldDb.OpenRecordset("Таблица1")
    
        m = OldTbl.RecordCount
        addNewGK = OldTbl.GetRows(m)     ' здесь обрывается, если m =0, и переходит к другому модулю, если m>0 отрабатывает дальше  
    
    OldTbl.Close
    
    
    Set OldTbl = OldDb.OpenRecordset("Таблица2")
    
        n = OldTbl.RecordCount                 
        massSearch = OldTbl.GetRows(n)  
    
    Set OldTbl = OldDb.OpenRecordset("SELECT Таблица2.Поле1 FROM Таблица2")
    
        listGK = OldTbl.GetRows(n)
    
    OldTbl.Close

Выход нашел, IF m>0 then, но как до сегодняшнего дня все работало?)

http://www.sql.ru/forum/1142003/problema-s-getrows