strFind = "([FIO]) like ('" & Me![txtFind] & "*')"
Set rst = qdf.OpenRecordset ...
With rst
        .FindFirst (strFind)
        If .NoMatch Then
            MsgBox "Образец поиска не найден"
        Else
            Me!Список = чему?!
        End If

.FindNext (strFind)

Private Sub FindUser(sAction As String)
Static rst As Recordset
Dim strFind As String
strFind = "[FIO] like ('" & Me![txtFind] & "*')"
Select Case sAction
Case "First"
    Set rst = CurrentDb.OpenRecordset("qltTelNew")
    rst.FindFirst (strFind)
        If rst.NoMatch Then
            MsgBox "Образец поиска не найден."
            FindUser ("Close")
        Else
            Me!Cписок= rst!id
        End If
Case "Next"
If rst Is Nothing Then Exit Sub
rst.FindNext (strFind)
        If rst.NoMatch Then
            MsgBox "Это последняя найденная строка."
            FindUser ("Close")
        Else
            Me!Cписок= rst!id
        End If
Case "Close"
If Not rst Is Nothing Then rst.Close
Set rst = Nothing
End Select
End Sub