VBA и SQL Server

[Voronin Michael]

Нужно чтобы данные с сервера по запросу выводились на лист. Все работает нормально. Но при нижеприведенной попытке изменить данные в одной записи и перейти к другой для аналогичной операции выдает сообщение "Cursor operation conflict". Причем значение-то в таблице изменилось, а вот перейти к другой строке не может.... Что делать?

Код: Выделить всё

-----------
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
--------
rs.MoveFirst
Do While Not rs.EOF
    rs.Fields(2) = "bla-bla_new"
    rs.MoveNext  ' здесь выдает "Cursor operation conflict"
Loop