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

我用vb来连接数据库并且对数据库数据修改，出现以上错误

例如我想改密码的代码如下

Option Explicit Dim textSQl As String Dim msgtext As String Dim cn As ADODB.Connection Dim mrc As ADODB.Recordset Private Sub Form_Load()

Set cn = New Connection Set mrc = New Recordset cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生管理.mdb") cn.CommandTimeout = 10 mrc.Open "登录", cn, adOpenKeyset, adLockPessimistic, adCmdTable End Sub

Private Sub Command1_Click() If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "输入密码有错误，请重新输入", 16, "警戒" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Else textSQl = "select * from 登录 where 密码= '" & Text1.Text & "'" Set mrc = cn.Execute(textSQl) If mrc.EOF = True Then MsgBox "输入密码有错误，请重新输入", 16, "警戒" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Else mrc.Fields(1) = Text2.Text mrc.Update mrc.Close MsgBox "密码修改成功，请继续使用！", 64 + vbOKOnly, "修改成功" Me.Hide cn.Close Set cn = Nothing End If End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1_Click End If End Sub 请问怎么样才能够解决这问题！

adLockPessimistic

换个锁.试一试啊! 具体我也忘了啊!很久不搞vb了

或mrc.Update 换成 批量更新 试一试啊!!.

应该是个小问题啊