小妹在做课程设计啦，密码修改这部分模块我实在不知道该怎么做，急死啦，求各位高手大哥大姐帮我写一段完整的源码吧，谢谢啦
具体要求就是4个文本框：用户名，旧密码，新密码，确认新密码
       两个按钮：确认，取消
数据库为：ACCESS数据库data.mdb  管理员表，用户名，密码

拜托啦

点击确认后，先判断新密码和确认新密码是否一致，否则提示错误。如果一致，就到数据库中以用户名和旧密码为关键字查询，如果找到，就update密码项，否则提示该用户不存在或者密码错误。如果密码做过加密什么的，那就在查询前也做相应 的修改。
取消按钮的事件更简单，清空4个文本框就是了。

太谢谢你啦，不过最好告诉我标准源码啊，我太笨啦，编出来的代码全是错误，运行不了啊

嘿嘿，偶不会VB。不过你可以把代码贴出来，让他们帮你修改。如果贴代码，别忘了把调试的结果也贴出来。

Private Sub Command1_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str As String Dim sSQL As String Set db = New ADODB.Connection Set rs = New ADODB.Recordset str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\仓库程序\data.mdb;Persist Security Info=False" db.ConnectionString = str db.Open rs.CursorLocation = adUseClient If Text3.Text = Text4.Text Then sSQL = "select * from 管理员 where MANAGER_ID = '%" + Text1.Text + "%' AND MANAGER_PASS='" + Text2.Text + "'" Else MsgBox "两次输入的密码不相同，请重新输入！" End If If rs.Fields("MANAGER_ID") = Text1.Text And rs.Fields("MANAGER_PASS") = Text2.Text Then rs.Fields("MANAGER_PASS") = Text3.Text rs.Update End If rs.Close Set rs = Nothing End Sub 大家帮忙看看这有什么问题？ 提示错误是项目在所需的名称或序数中未被发现 大家帮帮我啊~！！！````````

你好像没有用rs执行sSQL查询吧，具体我也不清楚，不会VB呵呵。

问题一： 在判断两次输入是否相同时，如不同，则显示 If Text3.Text = Text4.Text Then sSQL = "select * from 管理员 where MANAGER_ID = '%" + Text1.Text + "%' AND MANAGER_PASS='" + Text2.Text + "'" Else MsgBox "两次输入的密码不相同，请重新输入！" exit sub End If 问题二: 你的sSQL语句的问题，你的管理员表只有用户名和密码呀， 将：sSQL = "select * from 管理员 where MANAGER_ID = '%" + Text1.Text + "%' AND MANAGER_PASS='" + Text2.Text + "'" 改为：（假设你的用户名是用text1输入，密码是用text3、text4输入的。） sSQL = "select * from 管理员 where 用户名 = '" + Text1.Text + "' AND 密码='" + Text3.Text + "'"