关于模糊查询的问题~

Imports System.Data
Imports System.Data.OleDb
Public Class 商品库存查询
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim myada As New OleDbDataAdapter
Dim myda As New DataSet
、 Private Sub 商品库存查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\仓管系统\仓库管理.mdb"
mycon.Open()

mycmd.CommandText = "select * from 仓管"
mycmd.Connection = mycon
myada = New System.Data.OleDb.OleDbDataAdapter(mycmd)
myada.SelectCommand = mycmd
myada.Fill(myda, "仓管")
End Sub

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
mycmd.CommandText = "select * from 仓管 "
mycmd.Connection = mycon
myada = New System.Data.OleDb.OleDbDataAdapter(mycmd)
myada.SelectCommand = mycmd
Dim i As Integer

If RadioButton1.Checked = True And CheckBox1.Checked = True Then
Do While i < myda.Tables("仓管").Rows.Count
If mycmd.CommandText = "select 商品名称 from 仓管 where 商品名称 like %'" & TextBox1.Text & "'%" Then
ListBox1.Items.Add("商品名称:" & myda.Tables("仓管").Rows(i)("商品名称") & ";" & " 商品编号:" & myda.Tables("仓管").Rows(i)("商品编号") & ";" & " 库存数量:" & myda.Tables("仓管").Rows(i)("库存数量"))
Exit Do
Else
i = i + 1
End If
Loop
End If
结果无法进行模糊查询，是怎么回事呢~~谢谢谢谢