帮忙解决个问题
当我运行下面代码时。系统返回提示"wrong"，正确成功修改密码应该是提示“已成功修改了用户密码”，但就是怎样都无法修改密码，请问是哪里出错。谢谢
Private Sub Command1_Click()
If IsNull(New_pwd1) Then
MsgBox "请输入新密码", vbCritical, "提示"
End If
If IsNull(New_pwd2) Then
MsgBox "请再次输入新密码", vbCritical, "提示"
End If
If New_pwd1 <> New_pwd2 Then
MsgBox "两次输入不一致", vbCritical, "错误"
New_pwd1.SetFocus
New_pwd1 = ""
New_pwd2 = ""
End If
Dim rs As New ADODB.Recordset
Dim str As String
str = "select * from 登陆 where 登陆人='" & user & "'"
Set rs = GetRs(str)
If Not rs.EOF Then
rs("登陆人") = user
rs("密码") = New_pwd1
rs.Update
rs.close
Set rs = Nothing
MsgBox "您成功修改了该用户密码！"
Else
MsgBox "wrong"
End If
Me.Visible = False
End Sub
[解决办法]
添加一个模块，在模块里定义user为全局变量。（public user as string，是否为串变量并不重要，也可以是variant变量）
