老师，我之前用的组合框查询代码如下没问题，现在专业名称改用复选组合框，代码应该怎么改？

Dim Filter As String
With e.Form.Controls("证件名称")
    If .Value IsNot Nothing Then
        Filter = "证件名称 = \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("专业名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "专业 like \'%" & .Value & "%\'"
    End If
End With

With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "姓名 like \'%" & .Value & "%\'"
    End If
End With

If Filter > "" Then
    Tables("人员证件").Filter = Filter
End If

老师现在代码如下：专业名称哪儿不能模糊查询，怎么修改呢？

比如我专业名称列专业有：公路，  公路、市政，   公路、市政、水利，当选择公路查询时，这三个专业的都显示出来。

Dim Filter As String = "1=1"

With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("证件名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "证件名称 like \'%" & .Value & "%\'"
    End If
End With

With e.Form.Controls("专业名称")
    If .Value IsNot Nothing Then
        Filter &= " and 专业 in (\'" & .Text.Replace(",", "\',\'") & "\')"
    End If
End With

If Filter > "" Then
    Tables("人员证件").Filter = Filter
End If

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103946&skin=0