vb数据库的某条信息修改，查询

我用的一个if 语句进行查询 ，并且想对它进行修改，但是一直提示的错误信息是“在对应所需名称或叙述中，未找到项目” 请问该怎么对这个进行更改勒，才能达到我的目的！！谢谢！！
Set cn1 = New ADODB.Connection
cn1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\book.mdb"
cn1.Open
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = cn1
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
sql1 = "select * from 图书信息 where 图书编号='" & Trim(Text2) & "' "
rs1.Open sql
If rs1.EOF Then
MsgBox "没有你所输入的图书编号！请重新输入！"
Text2 = ""
Text2.SetFocus
Exit Sub
End If
If rs1("借出情况") = "未借出" Then
rs1!借出情况 = "已借出"
rs1!借阅人 = Trim(Text1)
rs1!借阅时间 = Date
rs1.Update
end if

1，text1和text2是控件？可以直接用text1和text2调用？不需要用text1.text和text2.text?
2、“在对应所需名称或叙述中，未找到项目”一般都是数据库字段错误，你检查一下你的UPDATE字段和数据库字段是否一致
3、rs1!借出情况= 这样的方式我没用过，但前面你用的是rs1("借出情况")的这种方式啊！

添加一个adodc控件,用来连接数据库. private sub dcbutton1_click() adodc1.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\数据库.mdb;persist security info=false" adodc1.recordsource = "select * from 账户 where 账号 like '" & text1.text & "'" adodc1.refresh if not adodc1.recordset.eof then label1.caption = adodc1.recordset.fields("密码") end if end sub