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

拜托啦

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

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 大家帮忙看看这有什么问题？ 提示错误是项目在所需的名称或序数中未被发现 大家帮帮我啊~！！！````````