主题：[求助] 在窗口中的筛选问题

Dim Filter As String
With e.Form.Controls("TB1")
    If .Value IsNot Nothing Then
        Filter = "订单号 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("总表").Filter = Filter
End If

      成功在表中筛选出一行，但我想在窗口中筛选，直接修改起来比较方便。应该怎样改呢？