Сложности с Autofilter - VBA

Формулировка задачи:

Не устанавливается фильтр в запросе подскажите что не так делаю?

Sheets("2015").AutoFilterMode=False
Sheets("2015").Range("$A$1:$BB$1").AutoFilter field:=40, Criteria1:=Лист1.TextBox1.Value,Operator:=xlOr,Criteria2:=Лист1.TextBox21.Value

В текстбокс1 для фильтрации забиваю дату в текстбокс21 забиваю Кредитная карта,но он не правильно устанавливает фильтр пропускает 2е условие мимо ушей,подскажите что исправить?

Разобрался, почему не выходит. Подскажите свой вариант как отфильтровать через запрос по 2м условиям чтобы по дате и названию кредита он может быть "кредитной картой" и "потребительский кредит" дата в 40 ячейке название в 7??

Решение задачи: «Сложности с Autofilter»

textual
                            Листинг программы 
                        
                            ActiveSheet.Range("A:J").AutoFilter 10, "????????????????"