求助 vb中怎么查询access中带*的数据

在编机器人是出现了问题：
比如说
Dim connstring As String
Dim SQL As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/db2.mdb"
cnn.ConnectionString = connstring
cnn.Open
Set rst = New ADODB.Recordset
SQL = "select * from 附表 where Ask like'%" & Text1.Text & "%'"
rst.Open SQL, cnn, 1, 3
key1 = rst("Ans").Value 'field1为表table1中的一个字段
rst.Close
Set rst = Nothing
我输入你喜欢什么颜色啊
而数据库中有Ask=你喜欢什么*啊 Ans=白
那Key1的只就=白
这怎么实现
拜托各位大神了