谢谢楼上的朋友了，

这位伙计说的对啊 ，你不和数据库连接那你到底是修改谁的密码啊我都听晕 了啊

我知道了一个答案
比如在form1中有三个标签 caption分倍为用户名，密码，修改密码。三个命令按钮为登录，修改密码(command2)，确定。 三个text，
sub command2_...
dim a,b,c,d,e,f
b=freefile
open "d:\1.dat" for input as #b
do while not eof(b)
put #b,a
loop
close
if text2.text=a then 'text2为写密码的
text3.enable=true
end if


sub command3_click
c=text3.text
d=freefile
open "d:\1.dat" for append as #d
write #d,c
close



sub command1.click
e=freefile
open "d:\1.dat" for input as #e
do while not eof(e)
put #e,f
loop
close
if text1.text=f then
form2.show
else
msgbox"ffff"
end if


sub form_load
g=freefile
open "d:\1.dat" for output as #g
close

兄弟，你的意思是说密码在源文件中（生成exe后在exe文件中），是码？
如果是这样，问题就比较棘手了。我看过“千千VB”中的一篇文章，我想可能对你有帮助：

《如何在VB中直接修改EXE文件》

首先警告，这样做很危险！但是为什么要这样做呢，肯定很多人也想过这个问题，例如为了程序的加密啊，保护软件不被盗版啊，等等等等。

有一点说明，以前的大多数杀毒软件都会监测系统修改可执行文件，但是现在Windows版的杀毒软件大概不这么干了，要不我直接修改EXE文件，好像瑞星没什么意见。

这里给出一个例子，其基本思路是这样的：

在原始的EXE文件中放入一个无用的字符串，例如：

hVALUE_1 = "$VAL_1$val1: this can be changed ...<EOS>"

并且提供一个函数把hValue_1读出来，例如GetValue1。

由于编译好的EXE文件是会留有原始的字符串信息的，所以以后可以用另外一个程序在打开该EXE文件，并且查找该字符串。这里作者把"$VAL_1$val1:"作为查找的标志，查到以后把它以后的部分字符串改成需要的其它字符串并保存，显然以后GetValue1函数将取出被“非法”修改后的字符串了。