Как передать в текст запроса ADODB имя таблицы?

Пытаюсь через COM прочитать и записать в регистры
сведений содержимое записей файлов БД ПАРАДОКС

МассивНайденых=НайтиФайлы("C:\data","*.db");
Для Каждого Файл Из МассивНайденых Цикл
ИмяФайла=Файл.Имя;
Если Лев((ИмяФайла),1)="D" Тогда
БД = Новый ComObject("ADODB.Connection");
БД.CursorLocation=3;
ПутьБД="c:\data";

Если БД.Open("Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 4.X;DefaultDir="+ПутьБД+";Dbq="+ПутьБД+";CollatingSequence=OEM")= 0 Тогда
Сообщить("Ошибка....");
Возврат;
КонецЕсли;
ИмяФайла=Лев((ИмяФайла),8);

ТекстЗапроса = "SELECT CARD,Event,Time FROM ИмяФайла";
....................
КонецЕсли;

Если вставляешь в тест запроса имя таблицы(имя файла БД без расширения) - работает
А как передать в текст запроса ADODB имя таблицы через переменную ?
прибл. как в 1с "Запрос.УстановитьПараметр()" ?