ADODB проблема обновления поля в таблице - VB

Формулировка задачи:

Работаю с базой DBC через ADODB. В коде программы произвожу последовательные обновления таблиц (см. код). По неизвестным причинам, когда дело доходит до третьей таблицы 46 записи нижеприведенный SELECT выдает ошибку [Microsoft][ODBC Visual FoxPro Driver]Record is not locked, причем выдает он ее только, если база находиться на сетевом диске, если на локальном, то все проходит нормально 8(

(objRecordSet.State = adStateOpen)  objRecordSet.
objRecordSet.  & nMAINID &  & nRECID, objDBCConnection, adOpenStatic, adLockOptimistic

 (Err <> ) 
   
   flagWasError = True
   Err.Clear

   objRecordSet.fields(strFldName).Value = XMLAttribute.Value
   objRecordSet.Update

Решение задачи: «ADODB проблема обновления поля в таблице»

textual
                            Листинг программы 
                        
                            <font color="blue">If</font> <font color="blue">not</font> (objRecordSet <font color="blue">is</font> <font color="blue">Nothing</font>) <font color="blue">Then</font> objRecordSet.<font color="blue">Close</font>