关于查询的问题？？

Question

我是新手，刚刚学习VB.  Private  Sub  Search_Click()  
   Prompt$  =  "请输入要查询的姓名"  
   SearchStr$  =  InputBox(Prompt$,  "查找姓名")  
   Form1.Adodc1.Recordse  
   t.Index  =  "姓名"    '设置索引的字段  
   Form1.Adodc1.Recordset.Seek  "=",  SearchStr$      '查找字段  
   If  Form1.Adodc1.Recordset.NoMatch  Then  
         MsgBox  ("对不起，查无此人")  
         Form1.Adodc1.Recordset.MoveFirst      '移动到第一条记录  
   End  If  
End  Sub  运行时提示    编译错误：未找到方法或数据成员  
就停在If语句的NoMatch那里,问题是不是出在NoMatch，应该怎么解决？  
急！！请帮忙。

Answer 1

If  Form1.Adodc1.RecordCount=0 Then  
         MsgBox  ("对不起，查无此人")  
         Form1.Adodc1.Recordset.MoveFirst      '移动到第一条记录  
End  If