Question

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

Dim Rs As New Recordset
Rs.ActiveConnection = ADOcn
Rs.Open "select * from 个人 where 学号=" & Trim(Text1)
While Not Rs.EOF
If Text1.Text = Rs("学号") And flag = 1 And flag1 = 1 Then
Rs("密码") = Text2.Text
MsgBox "密码修改成功，请牢记你的密码！！！"
Unload Me
Form2.Show
End If
Rs.MoveNext
Wend 这是执行错误的提示

我改成这样，又全部把密码都改成一样的了。
Rs.Open "select * from 个人 where 学号=" & Trim(Text1)
If Not Rs.EOF Then
If Text1.Text = Rs("学号") And flag = 1 And flag1 = 1 Then
ADOcn.Execute "update [个人] set 学号='" + Text2 + "'"
MsgBox “密码修改成功，请牢记你的密码！！！"
Unload Me
Frperson.Show
End If
Rs.MoveNext
End If
求高手指教啊 ，急急急。真的需要帮助啊 。
坐等。

Answer 1

你这一大段代码，用以下几行代码即可解决：

ADOcn.Execute "update [个人] set 密码='" & Text2.Text & "' where 学号=" & Text1.Text
MsgBox "密码修改成功，请牢记你的密码！！！"
Unload Me
Form2.Show

Answer 2

留名