小弟是新手

做了一个实现密码修改功能的窗体

'text1.text 是密码修改时要输入的旧密码 'text2.text 是修改后的新密码 'text4.text 是当前使用的用户id号 'text5.text 是从数据库获得的密码信息

Private Sub Command1_Click() If Text1.Text = Text5.Text Then '与数据库密码值比较 MsgBox "密码正确!", vbInformation + vbOKOnly, "提示信息" Adodc1.Recordset.Close Adodc1.Recordset.Open "update 用户信息表 set 密码='" & Text2.Text &

"' where ID='" & Text4.Text & "'" Adodc1.Refresh Else MsgBox "密码错误!", vbInformation + vbOKOnly, "提示信息" End If End Sub

运行后输入正确密码和新密码后出现对话框 提示： 实时错误'3219' operation is not allowed in this context

各位大大指点一下，谢谢！！！！！！！！！！！！！！！！