Access: поиск по всей длине строки - VB

Формулировка задачи:

Имеется подфункция вида

Dim a As String
    a = yyy.xxx.Text 
    With yyy.[url]www.Form[/url] 
        If Len(a) <> 0 Then
       a = " WHERE Left([Фамилия]," & Len(a) & ") = '" & s & "'"
         Else
        a = ";"
      End If
      .RecordSource = "SELECT .... FROM [Данные Запрос1]" & a
      .Requery 
      SortPoley ("[Фамилия] asc") 
    End With

как сделать поиск по бд с заданием условий поиска в строке, чтобы поиск на совпадение производился начиная не с левой стороны, а полностью по всей строке? догадываюсь что наверное после каждого введенного символа надо выполнять поиск с LIKE, но результат получается кривым и не работающим(

Решение задачи: «Access: поиск по всей длине строки»

textual
                            Листинг программы 
                        
                                   a = " WHERE [Фамилия] Like '*" & a & "*'"