主题：查询按钮出错

我在一个窗口上设了三个控件，ComboBox2，设了代码项：客户名称，地址，电话，等TextBox1，和一个“查询”按钮 在查询按钮上设置了如下代码：

Dim Filter2 As String

Dim tx As String= Forms("客户查询").Controls("ComboBox2")
With e.Form.Controls("TextBox1")
If .value IsNot Nothing Then
      Filter2="tx  Like '*" & .Value & "*'"
    End If
End With
If Filter2> "" Then
    Tables("客户查询_Table1").Filter = Filter2
End If

 

想达到目的，选择客户名称时，在文本框中输入名称支持模糊查询，选地址时，在文本框中输入文本时可以查地址，但实际执行时出错，如图，

此主题相关图片如下：客户查询出错.jpg

请问是什么原因？感觉是定义变量出错了，但试了几下都不行，请指点一下，谢谢！