有时会丢数据?

我调用另一个程序,该程序返回一个表给我(通过ADO)
获取表的代码如下:
            obRecordset.ActiveConnection = obConnection
            obRecordset.CacheSize = 55
            obRecordset.Open "work.ModelPara", , adOpenDynamic, adLockPessimistic, ADODB.adCmdTableDirect
            DoEvents
            For i = 1 To obRecordset.RecordCount
                    Debug.Print obRecordset.Fields(3).Value,    '<---THIS LINE---
                    obRecordset.MoveNext
            Next i
            obRecordset.Close
我发现多数情况下都能正常工作,但有时就会在我标示的那行报错:3265(在对应所需名称或序数的集合中,未找到项目.)我觉得被调用的那个程序应该工作正常,那是哪里有错呢?