请问修改密码的原代码怎么写啊？

?

private sub cmdok_click()
dim txtsql as string
dim msgtext as string
dim mrc as adodb.recordset
if trim(text1(0).text)<>trim(text1(1).text) then
msgbox"密码输入不一致,请重新输入",vbokonly+vbexclamation,"提示"
text1(0).setfocus
exit sub
else
 if trim(text1(0).text)="" then
msgbox"密码不能为空",vbokonly+vbexclamation,"警告"
text1(0).setfocus
exit sub
else
txtsql="select * from user_info where user_id='"&username&"'"
set mrc=executesql(txtsql,msgtext)
mrc.fields(1)=trim(txtpassword.text)
mrc.update
msgbox"修改成功",vbokonly+vbexclamation,"警告"
mrc.close
me.hide
end if
end if
end sub

你修改密码是不是到数据库里面修改撒，但是我的密码和数据库没关系！ 我的是这么设的（在图二的里确定按钮的代码）： ============================== Private Sub Command1_Click() If Text1.Text = "1234567890" Then Form3.Show Me.Hide Else MsgBox "密码错误!" End If End Sub ============== 我的意思是要通过图一的窗体来修改上面那个红色（1234567890）的部分 ！

呵呵，　你这个不叫改密码，而是改程序

那要什么改撒

本人个人认为这样是不能改的，因为程序中已经定死了一个密码．
如果说一时有效，那是可以的，可以通过变量来改，但这个变量中的值也是有一定时间的，过期就会自动删除的．
因为这个他没有载体来存放这个新的密码．

就像一个静态的网页，你如果要更新，那要怎么更新啊？
很明显重新回到开发软件进行修改．

你没有数据库，请问你的密码在程序退出后是保存在什么地方？文件？注册表？

哦，谢谢了，是不是要建立一个数据库？

密码应该存在数据库。