主题：帮忙看看，代码该怎么改？

Dim drp As WinForm.DropDownBox = e.sender
Dim txt As String = "'%" & drp.Text & "%'"
Dim tbl As WinForm.Table = Forms("明细查询").Controls("Table1")

Dim dt As DataTable = tbl.Table.DataTable

if txt <> "" then
dt.LoadFilter = "[品名] Like  " & txt                
dt.Load(False)

else

  messagebox.show("输入值不能为空")

end if