جستجو کارکتری در ویژوال بیسیک بانک SQL

On Error Resume Next
Adodc1.RecordSource = "select * from List1 where (Name like  '%" & Trim(Text1) & "%') order by Name"
Adodc1.Refresh