主题：请教一下模糊查询的代码

我按照例子做出来的精确查询的代码如下：

 

With e.Form.Controls("FACTORY")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "FACTORY = '" & .Value & "'"
    End If
End With

 

就是当我输入文本框工厂编号的时候它会自动查询到该工厂的所有产品

 

但是输入的编号必须完全与数据库中的编号一致，才能搜索到

请问怎样编写代码才能使我输入一些关键字,就能查询到含有这些关键字的工厂

 

比如说：

工厂编号 "XTY006"

当我输入"XT",查询结果就是所有编号里有XT的工厂

 

请教高手，想要实现这种模糊搜索，该如何修改代码？

 

谢谢

 Filter = Filter & "FACTORY like '*" & .Value & "*'"