关于vb数据绑定控件的问题

Question

prompt$ = "输入完整姓名"
searchstr$ = InputBox(prompt$, "查找姓名")
friend1.Recordset.Index = "客户姓名"
friend1.Recordset.Seek "=", searchstr$
If friend1.Recordset.NoMatch Then
MsgBox ("Sorry,Can't seek this record")
friend1.Recordset.MoveFirst
End If第三行出错了，firend1是一人数据库名。请问哪里出错了！谢谢

Answer 1

friend1.Recordset.Seek searchstr$

Answer 2

dim conn as new adodb.connection
dim rs as new adodb.recordsetconn.open .....     '连接数据库
if rs.state=adstateopen then rs.close
rs.open " select * from friend1 ",conn,3,3
prompt$ = "输入完整姓名"
searchstr$ = InputBox(prompt$, "查找姓名")
rs.Index = "客户姓名"
rs.Seek  searchstr$
If rs.NoMatch Then
    MsgBox ("Sorry,Can't seek this record")
    rs.MoveFirst
End If