Option Compare Database
Option Explicit

' Длл должна быть скопирована в      :\WINDOWS\system32\  '

Private Declare Function StrCompare Lib  "stringcompare.dll"  Alias _
    "similarity"  (ByVal i As Long, ByVal a As String, ByVal b As String) As Double


Private Sub simple1()
 


If Len(Nz(Me.findstr,  "")) < 3  Then
MsgBox "Для поиска небходимо ввести более  3  букв "
Exit Sub
End If


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


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

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

rst.PageSize = 10 
Me.PB.Max = rst.PageCount
'PB - Это прогресбар - не нужен отключи'
Me.PB.Visible = True


rst.MoveFirst
Do Until rst.EOF
    If Me.PB.value <> rst.AbsolutePage Then Me.PB.value = rst.AbsolutePage
    rst!simple = StrCompare( 50 , rst!name, str)
rst.MoveNext
Loop

Me.OrderBy = "simple DESC"

Me.PB.Visible = False
Me.OrderByOn = True
Me.Requery
rst.Close
Set rst = Nothing

End Sub