为什么ado语句不能够添加记录？

Question

Private sub command_click()
        re1.open "select * from 临时表",cn,adopendymic
end subprivate sub text1_keypress(keyascii as integer)
        re1.addnew
        re1.update
end sub
出错提示：当前记录集不支持更新，
怎么做？

Answer 1

LockType
　　Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：常数             常数值              说明
adLockReadOnly    1           缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法adLockPrssimistic 2           当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。adLockOptimistic  3           当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。adLockBatchOptimistic    4           当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、
　　                                     删、改的操作。你的记录集的locktype的类型应该没有选正确吧

Answer 2

re1.open "select * from 临时表",cn,adopendymic, adLockOptimistic
re1.addnew
re1.fields("字段")="xxxx"
        re1.update