这段代码为何不能正确检测用户输入的登录名？？详细解答者100分

Question

Private Sub cmdOK_Click()
    Adodc1.Recordset.Find Adodc1.Recordset.Fields(0).Name & "='" & txtUserName & "'"    '查代号
    If Adodc1.Recordset.EOF Then
       MsgBox "ID不存在!!"
       Adodc1.Recordset.Find Adodc1.Recordset.Fields(1).Name & "='" & txtUserName & "'"    '查用户名
       
       If Adodc1.Recordset.EOF Then
            MsgBox "用户不存在!!"
       End If
End Subadodc1连接到一用户表(此表第一个字段为用户ID，第二个字段为用户名，txtusername为文本框，既接受用户名，接受用户ID)，若输入正确的ID，能正确的判断，但只要输入了一次不用户名(不能表中是否存在)，都不能检测到，且再次输入正确的用户ID也不能检测了，不知是故？？

Answer 1

Private Sub cmdOK_Click()
    Adodc1.Recordset.Find "id ='" & txtUserName & "'"    '查代号
    If Adodc1.Recordset.EOF Then
       MsgBox "ID不存在!!"
       Adodc1.Recordset.MoveFirst '加上这一句
       Adodc1.Recordset.Find "用户名='" & txtUserName & "'"    '查用户名
       
       If Adodc1.Recordset.EOF Then
            MsgBox "用户不存在!!"
       End If
   End If
       Adodc1.Recordset.MoveFirst '加上这一句
End Sub

Answer 2

find方法只是从当前位置向后查找？？希望给个find方法的详细语法!!
我已经给分了哦!!谢谢谢!!!!