VB中数据库的模糊查询

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

vb没不会，不过asp学了点，sql语句应该差不多的

看你的写法，你的关键字那里少了点符号，应该是

'%"&关键字&"%' 你少了个双引号，加上去试试

%也是字符，序号用双引号引起来