find 函数是怎么了?

Question

Private Sub TreeView2_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim strsql As String
    strsql = "emp_id like '" & Node.Key & "'"
    objRecordset.Find strsql, 1, adSearchForward
    If Not (objRecordset.EOF And objRecordset.BOF) Then
        UserControl.Text1.Text = objRecordset.Fields.Item(1).Value
        UserControl.Text2.Text = objRecordset.Fields.Item(2).Value
        UserControl.Text3.Text = objRecordset.Fields.Item(3).Value
        UserControl.Text4.Text = objRecordset.Fields.Item(4).Value
        UserControl.Text5.Text = objRecordset.Fields.Item(5).Value
        UserControl.Text6.Text = objRecordset.Fields.Item(6).Value
        UserControl.Text7.Text = objRecordset.Fields.Item(7).Value
        'UserControl.Text8.Text = objRecordset.Fields.Item(8).Value
    End If
End Sub
报错说是：
      在记录的末尾！
请各位大虾指点！！

Answer 1

Private Sub TreeView2_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim strsql As String
    
    strsql = "emp_id like '" & Node.Key & "'"
     objRecordset.movefirst            ==================
    objRecordset.Find strsql, 1, adSearchForward..........