ник: snipe
Ошибка возникает из-за того что Акс из-за позднего связывания не знает значение переменной
xlDatabase
выход
Применить ранее связывание - подключить библиотеку EXcel (редактор VBA - Tools - References)
либо заменить xlDatabase на его числовой аналог