??[求助]密码修改怎么做？

Question

[求助]密码修改怎么做？
用什么方法可以覆盖旧密码？
text1原密码,text2新密码，text3确认
dim rs as recordset
data1.databasename = app.path & "\user1.mdb"
data1.recordsource = "select * from user where password ='" & text1.text & "'"
data1.refresh
set rs = data1.recordset
if rs.recordcount > 0 then
    if text2.text = text3.text then
        rs.findfirst "password='" & text1.text & "'"
        
        msgbox "密码成功！"
        data1.updaterecord
        unload me
    else
        msgbox "新密码和确认密码不相同！"
        text1.text = ""
        text2.text = ""
        text3.text = ""
    end if
else
    msgbox "没有该密码，请重新输入"

Answer 1

rs("password")=text3.text
rs.update

Answer 2

if  t3=t2 then
  rs!password='" & t1 & "'
else
   msgbox "新密码和确认密码不相同！"
endif