Есть следующий код :

Set sch = ActiveWorkbook.Sheets("Лист1")
Set pch = ActiveWorkbook.PivotCaches.Add(xlExternal)
Set pch.Recordset = rec
sch.Activate
Set ptbl = pch.CreatePivotTable(sch.Range("A1"), "Таблица")

rec- рекордсет уже открытый, данные беруться из DBF, строка подключения:
"Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=\\ServerPath\;Exclusive=No;Collate=Machine;NULL=NO;DELETED=YES;BACKGROUNDFETCH=NO;MODE=ReadWrite"

Caches создается нормально, а при создании таблицы выскакивает следующее сообщение:

Run-time error 1004 : Недопустимый клиент доступа.
В чем ошибка? Аналогичный код работает в другом приложении, но там данные беруться с SQL.
Поомгоите пожалуйста советом.