能否用代码创建ADOCONNECTION对象？

Question

在一般编程中，我们通常是将控件拖至面板上来加入该组件。如将ADOCONNECTION对象加入到面板上时，系统就会自动在声明中加入adoconnection1:Tadoconnection 并引入 DB ADODB两个包。在下面的编程中直接就可以使用adoconnectiond对象。如果不将该组件放置面板上，只使用代码如何创建一个adoconnection对象？本人是在创建了一个西线程对象时出现这样的问题，因为线程对象时不可视的，不知如何在其中创建ADOCONNECTION对象。请各位高手指点

Answer 1

uses ADODB;var
  ADOC: TADOConnection;
begin
  ADOC := TADOConnection.Create(nil);
  try
    // 
  finally
    ADOC .Free;
  end;
end;

Answer 2

p r o c e d u r e TForm1.btnConnectionClick(Sender: TObject);
b e g i n
adoc := CreateOleObject('ADODB.Connection');
// 打开连接
adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
S o u r c e = F : \ L e e w e i \ B o o k s \ D e l p h i 5 \ B o o k 3 \ D a t a s \ N o r t h w i n d . m d b ; M o d e = S h a r e
Deny None;Extended Properties="";Jet OLEDB:System database="";Jet
OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet
OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet
OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk
Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create
System Database=False;Jet OLEDB:Encrypt Database=False;Jet
OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without
Replica Repair=False;Jet OLEDB:SFP=False');
end