Календарь на форме и поле сводной таблицы: год - месяц - день

[Slom83]

Добрый день, уважаемые программисты VBA!
Есть такая задача: при формировании события Click на календаре формы необходимо передать в одно из полей, а именно: [Год]-[Месяц]-[День], некой сводной таблицы выбранную дату с календаря формы. Сводная таблица содержит данные из базы данных куба OLAP.
Попытался задать целочисленные переменные как значения даты календаря, но при обращении к свойству поля сводной таблицы через такую переменную VBA выдает ошибку: не удается найти элемент в кубе OLAP.
Помогите, пожалуйста, как задать свойства полей сводной таблицы переменной величиной и возможно ли это?
Прилагаю код формы с событием.