Здравствуйте, PA, Вы писали:

PA>Здравствуйте, GnuLLn, Вы писали:

GLL>>Здравствуйте, BugMan, Вы писали:

GLL>>

GLL>>>>dim rs as recordset
BM>>>' вот так правильнее будет
GLL>>>>set rs = db.openrecordset("select * from table where x = 1", dbOpenDynaset, dbOptimistic)
GLL>>

GLL>>К сожалению при таком варианте я получаю ошибку о неверном аргументе, даже при пропуске option.

PA>Надо так:

PA>

PA>set rs = db.openrecordset("select * from table where x = 1", dbOpenDynamic, ,dbOptimistic)
PA>

В MSDN VBA: Run-Time Error '3027' Using ODBCDirect to Open RecordSet (Q161252)
говорится о чем-то похожем, правда статья древняя (Microsoft Visual Basic for Applications version 5.0
Microsoft Access 97), но ситуация вроде аналогичная

Там предлагается, в частности

For example, the following sample code fragment opens an editable recordset that uses optimistic record locking:
Set RS = conPubs.OpenRecordset("Authors",dbOpenDynamic,0,dbOptimistic)
NOTE: You must supply a zero (0) for the Options argument.

Я не проверяла.