Присваивание для свойств объектов Automation

[yd_]

Здравствуйте!
Хочу автоматически импортировать из посторонней базы данных некие данные. Пишу следующий код:


<div class='CALtop'>C/AL</div><div class='CAL'>CREATE (SQLConnection);

SQLConnection.Open ('User ID=...;Password=...;Data Source=...;Initial Catalog=...');

CREATE (SQLCommand);
SQLCommand.ActiveConnection := SQLConnection;
SQLCommand.CommandType := 1;
SQLCommand.CommandText := 'select * from dbo.[...]';</div>

Тип SQLConnection - "Microsoft ActiveX Data Objects 2.8 Library".Connection
Тип SQLCommand - "Microsoft ActiveX Data Objects 2.8 Library".Command

При компиляции ругается на присваивание SQLCommand.ActiveConnection := SQLConnection;. Говорит: "Преобразование типов невозможно Text := Automation"

Заранее спасибо.

[Kirvisniemi]

Можно же завести переменную actConnection типа Variant и написать такой код:

actConnection := SQLConnection;
SQLCommand.ActiveConnection := actConnection;

[yd_]

Большое спасибо!