Dim sFilter As String=Trim(Me.ComboBox_Filter.Text)
 
Me.PlanningGuideDataBindingSource.Filter = "Column_25 Like '" & sFilter & "%'" & _
  "AND Column_29 Like '" & sFilter & "%' AND Column_60 Not Like '" & "Project" & _
  "finished" & "%'"

EALA FREYA FRESENA