VB6.0中的ADODC 控件当find不到匹配记录时如何处理

1、使用find方法时，要先设置recordSet当前所在行的位置，例如用MoveFirst方法，或者 使用BookMark去设置
2、find()是个方法不是个函数，所以它不返回任何值。
   调用后如果找到匹配的数据，则将游标移到匹配行，
   如果没有匹配的，就移动到rs的末尾，此时rs.EOF为true。
   使用举例：
   Adodc人事档案.MoveFirst
   Adodc人事档案.Recordset.Find ("ID='" & Text依ID查询.Text & "'") 
   if not Adodc人事档案.EOF then
       Text编号.Text = Adodc人事档案.Recordset.Fields("ID")
       Text姓名.Text = Adodc人事档案.Recordset.Fields("姓名")
   else
       MsgBox "未找到该ID编号的职工"
   end if

    Adodc人事档案.Refresh
    If Not Adodc人事档案.Recordset.EOF Then  '使用EOF方法检测记录集是否到最后记录的后面比较合理
    Text编号.Text = Adodc人事档案.Recordset.Fields("ID")
    Text姓名.Text = Adodc人事档案.Recordset.Fields("姓名")
    Text年龄.Text = Adodc人事档案.Recordset.Fields("年龄")
    Text部门.Text = Adodc人事档案.Recordset.Fields("部门")
    Text职位.Text = Adodc人事档案.Recordset.Fields("职位")
    Else   '如果检测记录集已经到最后记录的后面，会提示
    MsgBox "未找到该ID编号的职工"
    End If