script cari berdasarkan nama

Dim u As String
u = "select * from customer where nama_cust like'%" & Text4.Text & "%'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = u
Adodc1.Refresh