自己组合一下吧。
Dim s As String = e.Form.Controls("CheckedComboBox1").valueCurrentTable.Filter = "列名 In ('" & s.Replace(",","','") & "')"