各位过路的高手，大家好！我想对密码进行修改，但不知道为什么总出现错误，代码如下：

private sub command_click ( ) dim rs_chang as new adodb.pecordset dim sql as string if trim(text1.text)<>trin(text2.text) then msgbox"请确认密码一致",vbokonly+vbexclamation," text1.setfochr text1.text=" " text2.text=" "

else

sql="select*from 系统管理 where 用户名'" & userid&"'" rs_chang.open sql conn, aopenkeyset,adlockpessimistic rs_chang.fields(1)=text1.text rs_chang.update rs_close

end if end sub

private sub from_long ( )

dim connectionstring as string connectionstring="provider=microsoft.jet.oledb.4.0;"&data source=xs.mdb" conn.open connectionstring

公共类模块 public conn as new adodb.connection public userid as string public uesrpow as string

运行的时候，在text1,和text2中输入后点击command1的时候出现： 实时错误’3021‘ BOF或EOF中有一个是"真"或者当前的记录已被删除所需的操作要求一个当前的记录。

我不知道这是怎么回事！？？请各位大侠帮帮我！

sql="select*from 系统管理 where 用户名'" &amp; userid&amp;"'"
你是不是打错了哟．应该是sql="select*from 系统管理 where 用户名＝'" &amp; userid&amp;"'"

rs_chang.open sql conn, aopenkeyset,adlockpessimistic
你在运行了一段代码后，应该首先判断ＲＳ集合中有没有记录．
上面的代码里如果用户输入的不正确，那么你还是要运行下面的代码
rs_chang.fields(1)=text1.text
rs_chang.update
rs_close
所以要出错
应该这样
if not rs_chang.bof and not rs_chang.eof then
   rs_chang.fields(1)=text1.text
   rs_chang.update
   rs_close
else
   Msgbox("对不起，输入出错！")
end if

ADO不难，你要学会调试就行了，一行一行的做，就会了，看问题出在哪一行就解决哪一行，很快就会了，我就是这样学的

同意楼上的！

楼主问题解决了吗?