主题：请教：筛选

Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "[ID] Like '" & .Value  & "%' Or [ID] Like '%" & .Value 

& "' Or [ID] Like '%"  & .Value & "%' or [ID] = '" & .Value & "'"

    End If

End With

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter =Filter &  "Buyer ='" & .Value &  "'"

    Else

    End If

End With

If Filter > "" Then

    Tables("Progressing").Filter = Filter

End If

*************

需要用TextBox1和ComboBox1进行筛选，但是TextBox1有内容的时候，ComboBox1里面的筛选内容就失效了，需要怎么修改呢？