主题：筛选问题

下面筛选代码中,型号规格包含"*"如何处理?

Dim Filter,s1 As String
s1= e.Form.Controls("型号规格").Value
If s1 > "" Then
    Filter =  "[型号规格] In ('" & s1.Replace(",","','") & "')"
    Filter+ =" Or [型号规格]  Like '%" & s1.Replace(",","%'  Or  型号规格 Like '%") & "%'"
    Tables("中兴工艺_Table1").Filter = Filter
End If