求vb用adodc1修改登陆密码 access数据库

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 账号密码 "
Adodc1.Refresh
do while not adodc1.recordset.eof
if text1.text=adodc1.recordset.fields("username")and text2.text=adodc1.recordset.fields("userpwd") then
adodc1.recordset.fields("username")=text3.text
adodc1.recordset.fields("userpwd")=text4.text
adodc1.recordset.update
msgbox"修改成功"
exit sub
else
adodc1.recordset.movenext
end if
loop
msgbox"你输入的用户名或密码不正确"
注:text1为原用户名text2为原密码text3为新用户名text4为新密码.把以上代码加到一个按钮下就可以实现你的要求了.