如何在程序中创建TADOConnection(100分)

如何在程序中创建TADOConnection，请给出完整的例程

adoct:=TADOConnection.Create(nil);
adoqt:=TADOQuery.create(nil);
adoct.ConnectionString:=mainform.ADOC_main.ConnectionString;
adoct.LoginPrompt :=False;
adoct.Mode:=cmShareDenyNone;
adoct.Provider :=mainform.ADOC_main.Provider;
adoqt.Connection :=adoct;
adoct.Connected :=true;

哈哈﹐又有分嫌了。
Uses DB,ADODB﹔

Var conn:TADOConnection;

conn:=TADOConnection.Create(nil);
conn.ConnectionString:='...';加上你的連接string﹔

conn.Free﹔最好別忘了。

多人接受答案了。