Выбор таблицы Access

 String pr,dpr, Name;
 pr="MSDataShape.1";
 dpr="Microsoft.Jet.OLEDB.4.0";
 String tmp = ExtractFilePath(Application->ExeName) + Name;
 const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";
 if (!ADOConnection1->Connected) {
  ADOConnection1->ConnectionString = Format (ConnStr,
   ARRAYOFCONST((pr,dpr,tmp)));
   ADOTable1->TableName=Name;
   ADOTable1->Active=true;

int Index;
TStringList *SL = new TStringList;
ADOConnection1->GetTableNames(SL, false);
 
   if (!SL->Find("Recycled", Index))
{
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Text = "CREATE TABLE Recycled (Invent_Number int  PRIMARY KEY,Number_in_Lan varchar(50),Department varchar(50),Processor varchar(50),Memory varchar(50),HDD varchar(50),Room varchar(50),Windows_98 varchar(50),Windows_2000 varchar(50),Windows_XP varchar(50),Serial_Number varchar(50),Other varchar(50))";
ADOQuery2->ExecSQL();
}
else
{
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Text = "DELETE *FROM Recycled";
ADOQuery2->ExecSQL();
}
delete SL;
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Text ="Select * from Glavnaya order by Number_in_Lan";
 ADOQuery1->Open();