trim取值如何变

Question

做设备档案管理，使用datagrid绑定到ado控件，做查询功能，一个checkbox和一个text
Dim rs_find As New ADODB.Recordset
Dim sql As String
 If Check1.Value = vbChecked Then
   sql = "设备名称='" & Trim("Text1.Text" & "%") & "'"
 End If
If Trim(sql) = "" Then
   MsgBox "请选择查询方式！", vbOKOnly + vbExclamation
   Exit Sub
End If
Adodc1.RecordSource = "select * from 设备资料 where " & sql
 这样是准确查询，请问如何更改语句sql = "设备名称='" & Trim("Text1.Text" & "%") & "'"
实现模糊查询，trim取值里怎么变动合适，偶不想用sql的select...like..语句，多很多，很麻烦
偶是菜鸟，请专家不吝赐教啊！！！

Answer 1

If Check1.Value = vbChecked Then 
  sql = " 设备名称 like '%" & Trim(Text1.Text) & "%'" 
End If