请教一下，为什么从应用窗口进入，用染号代号筛选不出来，但是从设计窗口里面的预览里面进去又可以，这是什么原因？

代码如下：Dim filter As String
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
    Dim var As String = e.Form.controls(st).value
    If var IsNot Nothing Then
        var = var.replace("*","[*]")
        If filter <> "" Then
            filter = filter & " And " & st & " Like \'*" & var & "*\'"
        Else
            filter = st & " like \'*" & var & "*\'"
        End If
    End If
Next

Tables("物料信息").filter = filter

 不可能吧？试试这样，不行，就是上次例子

Dim filter As String = “”
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
    Dim var As String = e.Form.controls(st).Text
    If var IsNot Nothing Then
        var = var.replace("*","[*]")
        If filter <> "" Then
            filter = filter & " And " & st & " Like \'*" & var & "*\'"
        Else
            filter = st & " like \'*" & var & "*\'"
        End If
    End If
Next

Tables("物料信息").filter = filter