主题：加载外部表的问题

想实现刚开始不加载表，然后通过窗口的查询按钮加载满足条件的表

窗口查询按钮 如下：

With e.Form.Controls("项目")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = "项目 like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("地址")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "地址 like '*" & .Value & "*'"

    End If

End With

If Filter > "" Then

    DataTables("订单").LoadFilter = "Filter"

    DataTables("订单").Load

End If

请问怎么改？如何实现