AnsiString strDir = "c:\\data.mdb";
 
try
{
ADOConnection1->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=""DBQ="
                                    + (AnsiString)strDir + ";DefaultDir=" + (AnsiString)strDir
                                    + ";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN="
                                    + (AnsiString)strDir + ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5"
                                    + ";SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";
 
ADOConnection1->Open();
}
catch(Exception &exception)
{
MessageBox(Handle,"ERREUR Impossible d'ouvrir la Base de Donnée !!",
                 "Avertissement",MB_OK|MB_ICONSTOP ) ;
return;
}

  AnsiString Nom = "MATABLE";
  ADOQuery1->Connection = ADOConnection1; // Lien avec la Connection
  ADOQuery1->SQL->Clear();
  ADOQuery1->SQL->Add((String)"CREATE TABLE "+Nom+" (MONCHAMP1 INTEGER, MONCHAMP2 STRING)");
  ADOQuery1->ExecSQL();

// ouverture connexion, bdd et table
Form1->ADOConnection1->Open();
Form1->ADOTable1->Open();

// position au début de la table
Form1->ADOTable1->First(); 
//Ajoute un enregistrement vide
Form1->ADOTable1->Append();

// Positionne la table en mode Edition
Form1->ADOTable1->Edit(); 

Form1->ADOTable1->FieldByName("MONCHAMP1")->Value = 5;
Form1->ADOTable1->FieldByName("MONCHAMP2")->Value = "VALEUR";
// Valide l'édition dans la base de données
Form1->ADOTable1->Post();