高分求解：怎么修改recordset对象的updatable属性！

Question

请看代码： 
dim wrksp As Workspace
dim dbs As Database
dim rec As dao.Recordset    Set wrksp = CreateWorkspace("odbcworkspace", "admin", "", 1)
    Set dbs = wrksp.OpenDatabase("hero", dbDriverNoPrompt,False, "ODBC;DSN=hero;_
                       UID=sa;PWD=10241;DATABASE=hero")   '数据库连接没问题ODBC
    Set rec = dbs.OpenRecordset("select * from department", dbOpenSnapshot)        rec.AddNew  '运行到这一句报错，说: can't update ,Databse or object is read-only
        With rec
            !depnaem = Text1
            !descript = Text2
            !charg = Text3
            .Update
        End Withcan't update ,Databse or object is read-only倒底是为什么啊！
我查看了rec.updatable　确实为flase 
但是又不能直接修改这个属性（这个属性是只读的！）请问我可以怎么修改recordset对象的updatable属性啊！

Answer 1

//can't update ,Databse or object is read-only倒底是为什么啊！
不能更新，数据库或工程是只读。我一般用ADO。不用DAO

Answer 2

\\Set rec = dbs.OpenRecordset("select * from department", dbOpenSnapshot)\\改为
Set rec = dbs.OpenRecordset("select * from department", 1)

Answer 3

dbOpenSnapshot换成dbOpenDynaset试试

Answer 4

我出遇到同样的问题，不过我用
dbs.execute( "insert department values" & text1 ...)这样就没什么问题！