修改用户密码的时候就成这样了

代码发上来看下..

代码还没有完全写完
用户登陆、增加用户已经做好了，就是修改密码总是报错。
麻烦帮忙看看是什么问题，怎么解决，谢谢！

Private Sub Command1_Click()
    Dim rs_chang As New ADODB.Recordset
    Dim sql As String
    If Trim(Text1.Text) <> Trim(Text2.Text) Then
        MsgBox "密码不一致!", vbOKOnly + vbExclamation, ""
        Text1.SetFocus
        Text1.Text = ""
        Text2.Text = ""
    Else
        x = Trim(Text1.Text)
        sql = "select * from 系统管理 where 用户名='" & userID & "'"
        rs_chang.Open sql, conn, adOpenKeyset, adLockOptimistic
        rs_chang.Fields(1) = x
        rs_chang.Update
        rs_chang.Close
        MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "'"
        Unload Me
    End If
End Sub
把上面的代码复制过去就可以了

sql = "update 系统管理  set 密码 = '" & Text1.Text & "' where 用户名=' " & userID & " '"
 conn.Execute sql

[[it] 本帖最后由 XieLi 于 2008-5-5 12:13 编辑 [/it]]

用这种方法总是有问题,不知道为什么,在我电脑上调试不过...指点下..

狂晕啊，我居然多打了一个=号
现在已经解决了 谢谢大家啦

你是想说,结果为什么没有更新吧!因为没有附合的记录
sql = "update  系统管理  set 密码='" & Text1.Text & "' where 用户名=' " & userID & " '"
改为
sql = "update  系统管理  set 密码='" & Text1.Text & "' where 用户名='"& userID &"'"
   
因为那里有空格

[[it] 本帖最后由 XieLi 于 2008-5-5 13:32 编辑 [/it]]

提示对象关闭时,不允许操作.

Dim rs_chang As New ADODB.Recordset
    Dim sql As String
    If Trim(Text1.Text) <> Trim(Text2.Text) Then
        MsgBox "密码不一致!", vbOKOnly + vbExclamation, ""
        Text1.SetFocus
        Text1.Text = ""
        Text2.Text = ""
    Else
        sql = "update  系统管理  set 密码='" & Text1.Text & "' where 用户名='" & Trim(userID) & "'"
        conn.Execute sql
        MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "'"
        Unload Me
    End If