Dim str As String = "a"Dim filter As String = "1=2"For Each dc As Col In CurrentTable.Cols filter &= " or convert(" & dc.Name & ",'System.String') like '%" & str & "%'"Next
CurrentTable.Filter = filter