Private Sub ComboBox_Filter1_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      ComboBox_Filter1.SelectedIndexChanged
        Dim DummyString As String = ""
 
        Me.ProjectPanelDataBindingSource.Filter = ""
        Me.ProjectPanelDataDataGridView.Visible = False
 
        If Me.ComboBox_Filter1.Text <> vbNullString Then
            With Me.ProjectPanelDataDataGridView
                For Spalte As Integer = 1 To .Columns.Count - 1
                    DummyString = DummyString & "[" & .Columns(Spalte).Name & _
                      "] LIKE '*" & Me.ComboBox_Filter1.Text & "*' OR "
                    'DummyString = DummyString & "%' AND Column_12 Not Like '" 
                    ' & "Project finished" & "%'"
                Next
            End With
 
            If Microsoft.VisualBasic.Right(DummyString, 4) = " OR " Then
                DummyString = Mid(DummyString, 1, Len(DummyString) - 4)
            End If
        End If
 
        Me.ProjectPanelDataBindingSource.Filter = DummyString
        Me.ProjectPanelDataDataGridView.Visible = True
    End Sub