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

Question

请各位高手指点....
---------------------------------
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;
  endend.

Answer 1

运行的时候出现一个异常：Exception EOleSysError in module Console.exe at 000271FD.
CoInitialize 尚未被呼叫。.

Answer 2

uses
  SysUtils,DB,ADODB,QForms;...begin
  DBConn:=TADOConnection.Create(application);
  ...
end;

Answer 3

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.

Answer 4

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