Option Base 1
Option Explicit
Option Private Module
'====================================================================================================
' https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=95661&TITLE_SEO=95661-sravnenie-skhozhesti-teksta-dlya-raboty-s-bolshimi-spiskami&MID=791542#message791542
'====================================================================================================
'====================================================================================================
Function PRDX_FuzzyQuery(tmp) As Boolean
Dim pRSet As ADODB.Recordset
Dim subStr() As String, sSQL$, sIn$
Static pConn As ADODB.Connection, strConn$, baseQuery$, fStatic As Boolean

If Not fStatic Then
    fStatic = True
    Set pConn = New ADODB.Connection: pConn.CursorLocation = adUseClient: pConn.Open strConn
    strConn = "Driver={SQL Server Native Client 11.0};Server=(localdb)\mssqllocaldb;Database=TSQL;Trusted_Connection=yes;"
    baseQuery = "Select Top(1) tm.sentence, (Cast(tf.findCount As float) / $1) As [percent] From dbo.sentences tm Inner Join (Select Top (10) ts.sentenceId, Count(*) As findCount From dbo.words tw Inner Join dbo.wordToSentence ts On (tw.wordId = ts.wordId) Where tw.[word] In ($2) Group By ts.sentenceId Order By Count(*) Desc ) tf On (tm.sentenceId = tf.sentenceId) Order By tf.findCount Desc, Abs(tm.wordCount - tf.findCount) Asc;"
End If

subStr = Split(LCase$(tmp), " ")
sIn = "N'" & Join(subStr, "',N'") & "'"
sSQL = Replace(Replace(baseQuery, "$1", CStr(UBound(subStr) + 1)), "$2", sIn)
Set pRSet = pConn.Execute(sSQL)
If pRSet.RecordCount = 0 Then GoTo ex

ReDim subStr(2)
subStr(1) = pRSet(0).Value
subStr(2) = pRSet(1).Value
tmp = subStr: PRDX_FuzzyQuery = True

ex: pRSet.Close
End Function
'====================================================================================================
'====================================================================================================
Sub t()
Dim x

x = "вася петя"
If PRDX_FuzzyQuery(x) Then Debug.Print x(1), x(2)
End Sub
'====================================================================================================