Модификация полей ADODB.Recordset - VB

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

Есть программа для работы с базой данных Visual Fox Pro. В определенный момент необходимо модифицировать записи из выборки, делается это у меня так

В последнем коде происходило зацикливание и из-за чего это было не понятно ?(
Но после того как исправил выбоку, всего лишь добавив еще одно поле для вывода (

SELECT act, state, owncenterid, date, centerid

), все стало нормально работать. Это глюк чтоли или я что-то неверно делаю?

Человеки, поможите, что это может быть, ведь ничего не изменилось по сути.

Решение задачи: «Модификация полей ADODB.Recordset»

textual
                            Листинг программы 
                        

                            <font color="blue">Do</font> <font color="blue">Until</font> l_objRecordSetSecond.EOF
     l_objRecordSetSecond.Fields(<font color="teal">"state"</font>).Value = -<font color="darkblue"><b>1</b></font>
     l_objRecordSetSecond.Update
     <font color="blue">If</font> (Err <> <font color="darkblue"><b>0</b></font>) <font color="blue">Then</font>
          l_objLog.m_WriteLine <font color="teal">"Ошибка. Не удалось модифицировать запись. "</font> & Err.Description
          l_flagWasError = True
          Err.Clear
     <font color="blue">End</font> <font color="blue">If</font>
     l_objRecordSetSecond.MoveNext
<font color="blue">Loop</font>

                        