Dim filter1 As String = "( Column_29 Like '" & Trim(Me.ComboBox_Filter.Text) & _
  "%' AND Column_60 Not Like '" & "Project finished" & "%' ) OR ( Column_40 Not" & _
  "Like '" & "Project finished" & "%' )"

( Column_29 Like 'Hans%' & "%' AND Column_60 Not Like 'Project finished%' ) OR (" & _
  " Column_40 Not Like 'Project finished%' )

Me.PlanningGuideDataBindingSource.Filter = filter1
Me.PlanningGuideDataDataGridView.Refresh()