主题：进度条可以这么加吗？

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

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

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

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