主题：多值筛选

以下是在窗口中筛选的一段代码，错误的原因是黄色代码，该怎么修改？

 Case "checkedcomboBox1"
        Dim txt As String = e.Form.Controls("checkedcomboBox1").Text
        If txt = "" Then
            tbl.DataTable.loadFilter = ""
            tbl.DataTable.load()
        Else
            Dim lis() As String =txt.Split(",")
            Dim filter As String
            For Each li As String In lis
                filter = "filter & Or   公司名称 Like " & "'%" & li & "%'"
            Next
            tbl.DataTable.loadFilter =filter
            tbl.DataTable.load()
        End If