Dim Filter As String For Each dc As Col In CurrentTable.Cols If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then Continue For End If If Filter > "" Then Filter = Filter & " Or " End If Filter = Filter & "[" & dc.Name & "] Like '*" & cb3 & "*'" Next CurrentTable.Filter = Filter