Коллеги, приветсвую.

Подскажите как обновить поле в ADODB.Recordset, которого НЕТ в источнике данных.

Set Cnn = New ADODB.Connection
Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=790;FirstRowHasNames=Yes;TypeGuessRows=5;ImportMixedTypes=Text;ReadOnly=True;" & _
 "DBQ=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";"
Set tmp_RS = New ADODB.Recordset
SQL_query = "SELECT [внешняя_таблица$].*, '' AS New_Field FROM [внешняя_таблица$];"
tmp_RS.Open SQL_query, Cnn, adOpenStatic, adLockOptimistic, adCmdText

Тут если поставлю параметр не adLockOptimistic, а adLockReadOnly то вообще не будет возможности обновиться.

With tmp_RS
    .MoveLast
    .MoveFirst
    Do Until .EOF
        Set fnd_data = ThisWorkbook.Worksheets("филиалы").Range("D:D").Find(![Филиал], LookIn:=xlValues, lookat:=xlWhole)
        If (fnd_data Is Nothing) Then
            MsgBox "Не удалось подобрать регион для филиала " & ![Филиал], vbExclamation
        Else
            !New_Field = fnd_data.Offset(0, -1).Value
        End If
        .MoveNext
    Loop
End With

В момент .MoveNext получаю сообщение об ошибке, что невозможно обновить поле в таблицеи-сточнике, что собственно, вполне естественно, поскольку такого поля там и нет.

Как же ж быть?

http://www.sql.ru/forum/1151416/obnovlenie-poley-v-adodb-recordset-bez-obnovleniya-istochnika