这是我在筛选窗口做的代码：

Dim Filter As String
With e.Form.Controls("CB1")
    If .Value IsNot Nothing Then
        Filter = "科室 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("信息").Filter = Filter
    MessageBox.Show("也!找到了不少")
End If

另外我还想加一个进度条在窗口上表示筛选的速度，那进度条的代码可以写在上面这个代码里吗？麻烦大侠们帮我加一下~

这几天露脸的次数比较多，因为兴头正浓~辛苦各位啦~

不可以。

加不加都没意思，加只能在筛选代码的前后加。