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

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中有一个是"真"或者当前的记录已被删除所需的操作要求一个当前的记录。

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