请问如何在Console程序中使用TADOConnection对象，我的程序出现异常，请看代码！

[风中飘扬的柳絮]

请各位高手指点....
---------------------------------
program Console;

{$APPTYPE CONSOLE}

uses
SysUtils,DB,ADODB;

var DBConn : TADOConnection ;
var DBConnStr : String;

begin
DBConnStr := 'Provider=SQLOLEDB.1;Data Source=localhost;User ID=sa;Password=sa;Persist Security Info=True;Initial Catalog=pubs';
DBConn := TADOConnection.Create(nil);
DBConn.ConnectionString := DBConnStr;
try
DBConn.Open;
except
on ex: Exception do
begin
WriteLn('Error');
end;
end

end.

[风中飘扬的柳絮]

运行的时候出现一个异常：

Exception EOleSysError in module Console.exe at 000271FD.
CoInitialize 尚未被呼叫。.

[noil0125]

uses
SysUtils,DB,ADODB,QForms;

...

begin
DBConn:=TADOConnection.Create(application);
...
end;

[hch_45]

begin
CoInitialize(nil);

DBConnStr := 'Provider=SQLOLEDB.1;Data Source=localhost;User ID=sa;Password=sa;Persist Security Info=True;Initial Catalog=pubs';
DBConn := TADOConnection.Create(nil);
DBConn.ConnectionString := DBConnStr;
try
DBConn.Open;
except
on ex: Exception do
begin
WriteLn('Error');
end;
end
CoUninitialize();
end.

[hch_45]

要uses ActiveX

[风中飘扬的柳絮]

thanks for your anwsers ,hch_45(んこん) gave me the correct way !