主题：查找问题

With e.Form
    If e.sender.text <> "输入型号/土号查询" Then
Dim txt As String = e.Form.Controls("a").Text
If txt = "" Then
    Tables("表A").Filter = ""
 Else
    txt = "'*" & txt & "*'"
    Tables("表A").Filter = "型号 Like " & txt & " Or 土号 Like " & txt
   End If
End If
End With

这是一个查询代码  段代码只能对数字与文字进行查找，但是对时间、日期、C011****137中间夹有星号的都不能进行查找请问题这段代码要哪果更改才能对所有样式进行查找。