VB中数据库的模糊查询

求助！想把Text1里的内容作为查询的条件，但是一直出不来！
rs.Open "select*from 表1 where 单位 like '%&Text1.Text&%'", conn, adOpenKeyset, adLockOptimistic
MSHFlexGrid1.FixedCols = 0
Set MSHFlexGrid1.DataSource = rs
rs.Close