Как подключить поиск по базе - VB

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

Есть база создана virtyal data manager. В этой базе Фамилии иванов сидоров..... Как сделать поиск по этой базе и чтобы после поиска это все вставлялося в текст 1 и text 2.

Решение задачи: «Как подключить поиск по базе»

textual
                            Листинг программы 
                        

                            Private Sub SQL_Change()
 
On Error Resume Next
Data1.RecordSource = "SELECT Data.Код, Data.Клиент, Data.[Модель автомашины], Data.[№ двигателя], Data.[Vin номер], Data.Мастер, Data.Цена, Data.[Дата заказа], Data.[№ наряда], Data.Неисправность FROM Data " & "where Data.[Клиент] like '" & SQL.Text & "*'"
Data1.Refresh
On Error Resume Next
Data1.Recordset.MoveLast
 
DBGrid1.Columns(0).Width = 900
DBGrid1.Columns(1).Width = 4000
DBGrid1.Columns(2).Width = 1450
DBGrid1.Columns(3).Width = 1450
DBGrid1.Columns(4).Width = 2000
DBGrid1.Columns(5).Width = 2000
DBGrid1.Columns(6).Width = 2800
DBGrid1.Columns(7).Width = 2800
DBGrid1.Columns(8).Width = 2800
 
If SQL.Text = "" Then Call refrash_data
 
End Sub
                        