Создал базу данных с помощью VisData Manager, далее на форме создал кнопку поиска конкретных данных в виде

Private Sub cmdFind_Click()
Data1.Recordset.FindNext "Name like '" _
& Trim(InputBox("Enter name:")) & "'"
If Data1.Recordset.NoMatch Then MsgBox "Name not found"
End Sub

Проблема в том, что поиск осуществляется точный, т.е если в базе имеется имя Phill Jackson, а я ввожу имя поиска просто Phil то данных не обнаруживается. Хочу чтобы поиск шел по первым хотя бы трем буквам...
Please help..
Thanx in advance....