String fil,mm;
fil=ExtractFilePath(Application->ExeName);
fil+=”db1.mdb”;
mm=”Provider=Microsoft.Jet.OLEDB.4.0;”;
mm+=”Data Source=”;
mm+=fil;
mm+=”;Persist Security Info=False;”;
// Login Prompt serve a non visualizzare la finesta con il login di nome Utente e pasword…
AdoConnection1->LoginPrompt=false;
AdoConnection1->ConnectionString=mm;
AdoConnection1->Connected=true;
TADOQuery *aa=new TADOQuery(Form1);
aa->SQL->Add(”Select * from Tabella”);
aa->Connection=Mao;
aa->Active=true;
DataSource1->DataSet=aa;