请忙看一下修改窗体代码出错在哪里

さくら飘落

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 = ExeSQL(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

さくら飘落

谢谢你的提点！我的代码出错在我输新密码时，就只出现“wrong”。新密码修改不成功。

轻风

新来的啊，给你几个建议：
1、找对版块发贴很重要，象这种问题发到ACCESS常规交流比较好，那里人气高，解决问题快；
2、有问题最好发个示例库上来，方便解决问题；
3、如果发示例不方便，至少也要详细说明问题，象这个问题，你问代码出错在哪里，然后发了一大段代码上来，由于大家都比较忙，一般不会去慢慢一行一行看，但如果你指出运行时有什么错误提示，错误断点在哪，以及你想达到的效果，很快就会发现问题所在。