如何解决3027错误,3219错误

Question

Public Adbwok As Workspace
Public ADbf As Database
Dim Lsrec As Recordset
Dim Contrs  As String
Contrs="ODBC;DSN=CPKDB;PWD=332156"
Set ADbf = Adbwok.OpenDatabase("", False, False, Contrs)
Set Lsrec = ADbf.OpenRecordset("select * from usrpwd")
Lsrec.AddNew '3027错误 不能更新,数据库或对象是只读的。
Lsrec.Fields(0) = LCase(Usrname)
Lsrec.Fields(1) = LCase(Password)
Lsrec.Fields(2) = Text2.Text
Lsrec.Update
.....
Lsrec.MoveFirst '3219错误 无效的操作
各位大侠请指教一下如何解决这两类错误?

Answer 1

上面少写一行:
  Set Adbwok = CreateWorkspace("", "admin", "", dbUseODBC)

Answer 2

需要指定记录集对象（Lsrec）的 游标类型（CursorType） 和 锁定类型（LockType）。
默认情况下，打开的记录集是静态、只读的。因为“静态”，所以出现3219错误；
因为“只读”，所以出现3027错误；