Question

Vb数据库错误

在vb数据库编程中，我用了以下代码：

Dim Rs As Recordset
Set Rs = New Recordset
Rs.Open "select * from Book where 图书名称 ='" & Trim(cboName.Text) & "'", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程\图书馆管理系统\Data\Database.mdb;Mode=ReadWrite;Persist Security Info=False", adOpenDynamic
Rs.Fields("是否借出") = "是"
Rs.Fields("借书人名字") = sName.Caption
Rs.Fields("借书人编号") = No.Caption
Rs.Fields("借书日期") = outday.Caption
Rs.Fields("还书日期") = inday.Caption
Rs.Update
Rs.Close

运行时提示：

错误3251
当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制

什么意思啊？
我整个过程就用了这段代码
Access 的数据库

跪求高手解答，修改代码

Answer 1

要提定LockType,没指定默认为只读方式打开,改来如下:
Rs.Open "select * from Book where 图书名称 ='" & Trim(cboName.Text) & "'", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程\图书馆管理系统\Data\Database.mdb;Mode=ReadWrite;Persist Security Info=False", adOpenDynamic,adLockOptimistic