设计修改密码模块但无法成功请帮忙看看

当我运行下面代码时。系统返回提示"wrong"，正确成功修改密码后应该是提示“已成功修改了用户密码”，但就是怎样都无法成功修改密码，请问是哪里出错。谢谢，还请问下下面的user需要定义的吗，但我看资料里面没有，是要加载什么插件的？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