請忙看一下修改窗體代碼出錯在哪里

さくら飄落

Private Sub Command1_Click()
If IsNull(new_pwd1) Then
MsgBox "請輸入新密碼！", vbCritical, "提示"
End If
If IsNull(new_pwd2) Then
MsgBox "請再次確認(rèn)新密碼！", vbCritical, "提示"
End If
If new_pwd1 <> new_pwd2 Then
MsgBox "新密碼確認(rèn)不正確！", 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

さくら飄落

謝謝你的提點(diǎn)！我的代碼出錯在我輸新密碼時，就只出現(xiàn)“wrong”。新密碼修改不成功。

輕風(fēng)

新來的啊，給你幾個建議：
1、找對版塊發(fā)貼很重要，象這種問題發(fā)到ACCESS常規(guī)交流比較好，那里人氣高，解決問題快；
2、有問題最好發(fā)個示例庫上來，方便解決問題；
3、如果發(fā)示例不方便，至少也要詳細(xì)說明問題，象這個問題，你問代碼出錯在哪里，然后發(fā)了一大段代碼上來，由于大家都比較忙，一般不會去慢慢一行一行看，但如果你指出運(yùn)行時有什么錯誤提示，錯誤斷點(diǎn)在哪，以及你想達(dá)到的效果，很快就會發(fā)現(xiàn)問題所在。