действительно интересная и непростая задача.
я сейчас тоже с ней столкнулся...
пока сделал в аксессе на vb
попробую переложить алгоритм на tsql (кстати может кто поможет?)


алгоритм следующий
добавляем в таблицу поле схожесть
обнуляем его

по каждой записи из таблицы делаем следующее
от 3 букв и до длинны искомой фразы
проверяем соответствие 1-х 3 букв поля записи соответствию 1-х 3 букв искомой фразы
если да увеличиваем поле похожесть на 10 ^ {количество букв}/1000 (это дает возможность различать похожесть из пяти букв от похожести из 3 или 4 как похожестьразной степени)
во втором цикле если нет то увеличиваем счетчик символа (если длинна искомой фразы - число искомых символов <0 )
с которого ищем в строке записи и повторяем 1-й цикл
в 3 цикле изменяем число искомых букв от 3 до длины искомой фразы и повторяем 2-й цикл

в результате получаем поле для сортировки с различными по похожести записями...
кстати результаты неожиданные...)))

Private Sub Кнопка13_Click()

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

str = Left(Me.findstr, 1

'прогресс бар
Me.PB.Visible = True
Me.PB.Max = Len(str) - 2

'k c какого символа начинается поиск
For k = 1 To Len(str) - 3

Me.PB.value = k
'l- длина искомой фразы
For l = 3 To Len(str)
sss = Mid(str, k, l)


rst.MoveFirst
Do Until rst.EOF
For i = 1 To Len(rst!name) - 2
If sss = Mid(rst!name, i, l) Then
rst!simple = rst!simple + 10 ^ l / 1000
rst.Update
End If
Next i

rst.MoveNext
Loop
Next l
Next k
Me.OrderBy = "simple DESC"

Me.OrderByOn = True
Me.Requery
Me.PB.value = 0
Me.PB.Visible = False
End Sub

по быстрому написал так. даже работает ))