Private Sub Search(searchString As String)
    On Error Resume Next
    Static previousSearchString As String, SearchLevel As Byte
    
    If searchString = "" Then Exit Sub
    
    If previousSearchString <> searchString Then
        previousSearchString = searchString
        SearchLevel =  0 
        rs.Sort = SearchFld
    Else
        rs.MoveNext
    End If
    Do While SearchLevel <  3 
        If Find(rs, SearchFld, searchString, SearchLevel) Then
            Where2Search.Bookmark = rs.Bookmark
            Exit Do
        Else
            rs.MoveFirst
            SearchLevel = SearchLevel +  1 
        End If
    Loop
    If SearchLevel =  3  Then Beep
End Sub

Private Function Find(ByRef Recordset As ADODB.Recordset, ByRef FieldName As Variant, ByRef SearchValue As String, ByRef SearchLevel As Byte) As Boolean
    Static FilterStr As String
    Dim IsStrField As Boolean
    
    Select Case rs(SearchFld).Type
        Case adBSTR, adChar, adLongVarChar, adLongVarWChar, adVarChar, adVarWChar, adWChar
            IsStrField = True
        Case Else
            IsStrField = False
    End Select
    
    If IsStrField Then
        Select Case SearchLevel
            Case  0 
                FilterStr = FieldName & " = '" & SearchValue & "'"
            Case  1 
                FilterStr = "(" & FieldName & " Like '" & SearchValue & "%') And (" & FieldName & " <> '" & SearchValue & "')"
            Case  2 
                FilterStr = "(" & FieldName & " Like '%" & SearchValue & "%') And (" & FieldName & " <> '" & SearchValue & "')"
        End Select
        If rs.Filter <> FilterStr Then
            rs.Filter = FilterStr
        Else
            rs.MoveNext
        End If
        If rs.EOF Then
            Find = False
            rs.Filter = ""
            Exit Function
        End If
    End If
    
    Do While Not Recordset.EOF
        Select Case SearchLevel
            Case  0 
                If CStr(rs(FieldName)) = SearchValue Then
                    Find = True
                    Exit Function
                Else
                    Recordset.MoveNext
                End If
            Case  1 
                If (CStr(rs(FieldName)) Like SearchValue & "*") And (CStr(rs(FieldName)) <> SearchValue) Then
                    Find = True
                    Exit Function
                Else
                    Recordset.MoveNext
                End If
            Case  2 
                If (CStr(rs(FieldName)) Like "*" & SearchValue & "*") And (Not CStr(rs(FieldName)) Like SearchValue & "*") And (CStr(rs(FieldName)) <> SearchValue) Then
                    Find = True
                    Exit Function
                Else
                    Recordset.MoveNext
                End If
            End Select
    Loop
    
    Find = False
End Function