Private Sub Search(searchString As String)
    On Error Resume Next
    Static previousSearchString As String, SearchLevel As Byte, patternStr1 As String, patternStr2 As String
    Dim searchStr As String, searchLvl As Byte
    
    If searchString =  "" Then Exit Sub
    
    If previousSearchString <> searchString Then
        SearchLevel = 0 
    End If
    
    searchLvl = SearchLevel
    
    Do While searchLvl <=  3 
        Select Case searchLvl
            Case  0 
                searchStr = SearchFld & " = '" & searchString & "' "
            Case 1 
                searchStr = "( " & SearchFld & "  Like '" & searchString & "*') And ( " & SearchFld & "  <> '" & searchString & "') "
                patternStr1 = searchString & " * "
            Case 2 
                searchStr = SearchFld & " Like '* " & searchString & "*' "
                patternStr2 = " *  " & searchString & " * "
            Case 3 
                searchStr = "( " & SearchFld & "  Like '*" & searchString & "*') And ( " & SearchFld & "  <> '" & searchString & "')"
        End Select
            
        If (previousSearchString <> searchString) Or (SearchLevel <> searchLvl) Then
            rs.Filter = searchStr
        End If
        
        If (previousSearchString = searchString) And (Not rs.EOF) And (SearchLevel = searchLvl) Then
            rs.MoveNext
        End If
        
        SearchLevel = searchLvl
        previousSearchString = searchString
        
        If Not rs.EOF Then
            
            If Not ((searchLvl =  3 ) And ((rs(SearchFld) Like patternStr1) Or (rs(SearchFld) Like patternStr2))) Then
                Where2Search.bookMark = rs.bookMark
                Exit Do
            End If
            
        Else
            searchLvl = searchLvl +  1 
        End If
        
    Loop
End Sub