主题：[求助]检查框作查询筛选

请问高手，在一个表中，有多列是逻辑列，我设计了一个查询的窗体，用检查框作为查询条件的选择，可以选择任意个条件，类似文本框输入的代码应该怎么改？

With e.Form.Controls("CheckBox1")
   If .Value IsNot Nothing Then
        If Filter =0 Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "条件1= '" & .Value & "'"
    End If
End With

……