TADODataSet *rs = new TADODataSet(NULL);
TADOConnection *con=new TADOConnection(NULL);
con->ConnectionString=bla-bla-bla;
....
con->Open();
....
rs->Close();
rs->Connection=con;
rs->CommandText="mydata.db";
rs->CommandType=cmdTable;
rs->Open();
...

TADODataSet *rs = new TADODataSet(NULL);
TADOConnection *con=new TADOConnection(NULL);

//Unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <ADODB.hpp>   //For ADO components
#include <inifiles.hpp> //for working with ini-files

//---------------------------------------------------------------------------
//Global variables definition
 TADOConnection *ADOConnection1,*ADOConnection2;
 TADOQuery      *ADOQuery1;
 TADOQuery      *ADOQuery2;
 TADOQuery      *ADOQuery3;
 TADOCommand    *ADOCommand1;
 TADODataSet    *ADODataSet1,*ADODataSet2,*ADODataSet3;
 TStringList    *ListBox2;

 int err= 0 ; //error flag
 int logFileHandle;
 int rezult,GlobalRecCount;
 AnsiString OutputText,data;
 AnsiString User,Pass;

//Functions definition
 void Analize(int i);
 void __fastcall Cloze();
 AnsiString Decode(AnsiString Stroka);
 void __fastcall Connect(AnsiString Parameter);
 void Support();
 void SaveResults(AnsiString Filial,int Records,int logFileHandle);
 AnsiString WinToDOS(AnsiString Stroka);
 void __fastcall LoadInform();
 void Convert(AnsiString Black, AnsiString White);
 int Check(AnsiString TableName,int Mode);
 void UpLoad();
 int Upload_w();
 int Upload_b();
 int Check_up();
//---------------------------------------------------------------------------
#endif

//Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#include <shellapi.h>
#include <graphics.hpp>
#include "Unit11.h"
#include <wstring.h>
#pragma hdrstop
#pragma argsused
//---------------------------------------------------------------------------
//Global settings
int KolUsl,Records;
bool LinkExistsFlag=false;
bool WhiteList=false;

WINAPI WinMain(HINSTANCE handle, HINSTANCE phandle, LPSTR commandline, int showparm)
//int main(int argc, char* argv[])
{
//Начальные установки
 int index,pos;
 AnsiString Parameter;
 int Mode;
 Application->Initialize();
 Parameter=AnsiString(commandline);
 Parameter=Parameter.UpperCase();
 ShowWindow(Application->Handle,SW_HIDE);

 Connect(Parameter);
 Analize(index);
 Cloze();
return false;
}
//---------------------------------------------------------------------------
void Analize(int index)
{
 <что-то там>
 return;
}
//---------------------------------------------------------------------------
void __fastcall Cloze()
{
 //Отрабатываем выход из программы
 OutputText="Завершение работы\r\n";
 delete Usl;
 delete PriUsl;
 delete PredUsl;

 if(!ADOQuery1->IsEmpty())
   ADOQuery1->Close();
 ADOQuery2->Close();
 ADOConnection1->Close();
 Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall Connect(AnsiString Parameter)
{
 AnsiString path;
 int pos;
 TIniFile *myini;
 Support();
 path=Application->ExeName;
 pos=path.LastDelimiter("\\");
 path=path.SubString( 1 ,pos)+"my.ini";
 myini=new TIniFile(path);
 User=Decode(myini->ReadString("User","Name",""));
 Pass=Decode(myini->ReadString("User","Pass",""));
 StanUser=Decode(myini->ReadString("User","StanUser",""));
 StanPass=Decode(myini->ReadString("User","StanPass",""));
 StanServer=Decode(myini->ReadString("User","StanServer",""));
 delete myini;
...
 ConnStr="Provider=MS Remote;Remote Provider=ORAOLEDB.ORACLE.1;Remote Server=http://хххххххххх.ru;Data Source=ХХХDB;";
 ConnStr+="User ID="+User+"; Password="+Pass+";";

 ADOConnection1->LoginPrompt=false;
 ADOConnection1->ConnectionString=ConnStr;

 try
  {
   //Осуществляем подключение к удаленному источнику данных - серверу БД...
   ADOConnection1->Open();
   ADOQuery2->Open();
  }
catch (Exception &exception)
  {
   err= 1 ;
   OutputText="Ошибка при соединении! Соединение не установлено!\r\n";
   FileWrite(logFileHandle,OutputText.c_str(),OutputText.Length());
   LinkExistsFlag=false;
   return;
  }
 return;
}
//-------------------------------------------------------
void Support()
{
  //А вот здесь я создаю необхзодимые мне ADO-компоненты
 AnsiString ConnStr;
 ADOConnection1=new TADOConnection(NULL);
 ADOQuery1=new TADOQuery(NULL);
 ADOQuery2=new TADOQuery(NULL);
 ADOQuery3=new TADOQuery(NULL);
 ADOCommand1=new TADOCommand(NULL);
 ADODataSet1=new TADODataSet(NULL);
 ListBox2=new TStringList();
 ADOConnection1->Close();

 //Формируем SQL для получения списка отчетов...
 ADOQuery2->Close();
 ADOQuery2->CursorType=ctDynamic;
 ConnStr="Select sysdate from dual ";
 ADOQuery2->SQL->Add(ConnStr);

 ADOQuery1->Connection=ADOConnection1;
 ADOQuery2->Connection=ADOConnection1;
 ADOQuery3->Connection=ADOConnection1;
 ADOCommand1->Connection=ADOConnection1;
 ADODataSet1->Connection=ADOConnection1;
 //ADOConnection1->LoginPrompt=false;
 return;
}
//Остальные функции, описанные в заголовочном файле
...

//Project1.bpf
USEUNIT("Unit1.cpp");
//---------------------------------------------------------------------------
This file is used by the project manager only and should be treated like the project file


main