Public Sub Кнопка13_Click()
Dim t
t = Timer()
If Len(Me.findstr) <  3  Then
MsgBox  "Для поиска небходимо ввести более 3  букв"
Exit Sub
End If


Dim rst As New ADODB.Recordset
rst.Open  "client" , CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'обнуление '
Do Until rst.EOF
rst!simple =  0 
rst.Update
rst.MoveNext
Loop


Dim i
Dim sss
Dim str

Dim l
Dim k
Dim found As Boolean


str = Left(Me.findstr,  31 )
str = Replace(str,  " ОАО" ,  "", , , vbTextCompare)
str = Replace(str, "  OAO ", "  ", , , vbTextCompare)
str = Replace(str, "  ОАО ", "  ", , , vbTextCompare)

str = Replace(str, "  ООО ", "  ", , , vbTextCompare)
str = Replace(str, "  OOO ", "  ", , , vbTextCompare)


Me.PB.Visible = True

rst.MoveLast
Me.PB.Max = rst.AbsolutePosition
rst.MoveFirst
Do Until rst.EOF
Me.PB.value = rst.AbsolutePosition

'k c какого символа начинается поиск

For k = 1 To Len(str) - 2

'l- длина искомой фразы

found = False
l = 3 
For l =  3  To Len(str)
    sss = Mid(str, k, l)




    For i =  1  To Len(rst!name) -  2 
        If sss = Mid(rst!name, i, l) Then
            rst!simple = rst!simple +  10  ^ l /  10  ^  15 
            rst.Update
            found = True
        End If
    Next i

If found = False Then GoTo m1


Next l
m1:

Next k

rst.MoveNext
Loop

Me.OrderBy = "simple DESC"

Me.OrderByOn = True
Me.Requery
Me.PB.value =  0 
Me.PB.Visible = False
Debug.Print Timer() - t
End Sub