[Grunch]

Код:

var
  ADOConnection: TADOConnection;

procedure Init;
begin
  CoInitialize(nil);
  ADOConnection:=TADOConnection.Create(nil)
  try
    //тут код
  finally
    ADOConnection.Free;
  end;
end;

В uses должен быть модуль ActiveX;