Можно попробовать создавать ODBS - источник налету! Посмотрите здесь, может поможет:

// так создаём динамически connect к ODBC
transaction SQL
string ls_connect, ls_databasefile, ls_driver,docpath, f_name
integer i, li_cnt, li_rtn, li_filenum
SQL = CREATE transaction
// здесь даём пользователю выбрать в диалоговом режиме имя файла
li_rtn = GetFileOpenName("Выберете файл",docpath,f_name,"XLS","Excel Files (*.XLS),*.XLS,","c:/Test")
ls_DataBaseFile = f_name
ls_Driver = "Microsoft Excel Driver (*.xls)"
ls_connect = "'" + &
"DBQ=" + ls_DataBaseFile + &
";Driver=" + ls_Driver + &
";FIL=MS Excel;" + &
"'"
SQL.DBMS = "ODBC"
SQL.Autocommit = False
SQL.DbParm = "ConnectString=" + ls_connect
connect using SQL;

if( SQL.SQLCode<> 0) then
MessageBox('Test', 'SQLCode = :' + string( SQL.SQLCode) + '~r~n' + SQL.SQLErrText )
end if
// так создаём дату window и заполняем её к примеру из datastore, простым копированием строк.
string error_syntaxfromSQL, error_create, str
int j
string new_sql, new_syntax
// Описание DataStore
datastore my_store
// dw_1 - это единственный контрол, который нам нужен
w_main.dw_1.Reset()
// Создаём DataStore
my_store=Create datastore
// Запрос SQL
new_sql = 'SELECT * from "database"'
//messagebox("",new_sql)
// Полный синтаксис
new_syntax = SQL.SyntaxFromSQL(new_sql, /*"" - по умолчанию*/'Style(Type=Grid)',error_syntaxfromSQL)
IF Len(error_syntaxfromSQL) > 0 THEN
// Выдается ошибка
w_main.st_1.Text = error_syntaxfromSQL
ELSE
// Привязываем DataStore к запросу
my_store.Create(new_syntax, error_create)

// Привязываем контрол к данным
w_main.dw_1.Create(new_syntax)

IF Len(error_create) > 0 THEN
w_main.st_2.Text = error_create
END IF
END IF
// Вытаскиваем данные в DataStore
my_store.SetTransObject (SQL)
my_store.Retrieve()
// Копируем данные из DataStore в Control
my_store.RowsCopy(1,my_store.RowCount(), Primary!, w_main.dw_1,1,Primary!)
Destroy SQL