模糊查找

Question

数据库是 access 
查询语句："select * from kucuns where shangpinxinghao like '*" & Text1.Text & "*'"
结果是：没有显示任何数据。在access里面使用 查询语句可以查询
在access里面运行："select * from kucuns where shangpinxinghao like '*T5*'"
结果是可以查询数据。请问为什么会这样。想不明白。
应该修改才行呢。下面是我全部代码，请大家帮忙，看一看那里出错了。Private Sub Command1_Click()
Form14.ListView1.ListItems.Clear
Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\db1.mdb;Persist Security Info=False"
cn.Open
Rs.CursorLocation = adUseClient
    Rs.Open "select * from kucuns where shangpinxinghao = '*" & Text1.Text & "*'", cn, 3, 1
    While Not Rs.EOF
   Set itmX = Form14.ListView1.ListItems.Add(, , CStr(Rs!shangpinmingcheng))   '商品。
     If Not IsNull(Rs!shangpinmingcheng) Then
               itmX.SubItems(1) = CStr(Rs!shangpinxinghao)
               itmX.SubItems(2) = CStr(Rs!kucunshuliang)
               itmX.SubItems(3) = CStr(Rs!xiaoshoujiage)
               itmX.SubItems(4) = CStr(Rs!jinhuojiage)
               itmX.SubItems(5) = CStr(Rs!sid)
      End If
      Rs.MoveNext   '移动到下一条记录。
   Wend
   Set Rs = Nothing
   Set cn = Nothing
End SubPrivate Sub Form_Load()
   ListView1.ColumnHeaders.Add , , "商品名称", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "商品型号", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "库存数量", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "销售价格", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "进货价格", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "id", ListView1.Width / 6
   ListView1.View = lvwReport
End Sub

Answer 1

ACCESS 内部，为了方便普通用户。微软使用了 * 和 ? 做为通配符。 但SQL国际标准中则是 % 和 _ 所以在通过ODBC，ADO，DAO等来访问数据的时候只能用 % 和 _ 

Answer 2

所以，不妨在VB中把你的查询语句改成："select * from kucuns where shangpinxinghao like '%" & Text1.Text & "%'" 

Answer 3

"select * from kucuns where shangpinxinghao like '" & Text1.Text & "%'"