procedure TWebForm1.LinkButton3_Click(sender: System.Object; e: System.EventArgs);
const
  SQL   : string =  'SELECT * FROM ff';
  cnStr : string =  'assembly=Borland.Data.Msacc, ' 
                    'Version=1.5.0.0, Culture=neutral, ' 
                    'PublicKeyToken=91d62ebb5b0d1b1b;' 
                    'vendorclient=msjet40.dll;' 
                    'database=##DBPATH##;' 
                    'provider=MSAccess;' 
                    'username=' 
                    'admin;password=';
var
  cn : Borland.Data.Provider.BdpConnection;
  cm : Borland.Data.Provider.BdpCommand;
  dr : Borland.Data.Provider.BdpDataReader;
  s  : string;
begin
  cn := Borland.Data.Provider.BdpConnection.Create(
          cnStr.Replace('##DBPATH##', 'C:\DB1.MDB') );
  cn.Open;
  cm := Borland.Data.Provider.BdpCommand.Create( SQL, cn );
  dr := cm.ExecuteReader;
  while ( dr.Read ) do
    s := s   dr['f1'].ToString   ', '   dr['f2'].ToString   '|';
  dr.Close;
  cm.Close;
  cn.Close;
  cn.ConnectionString := cnStr.Replace('##DBPATH##', 'C:\DB2.MDB');
  cn.Open;
  cm.Connection := cn;
  dr := cm.ExecuteReader;
  while ( dr.Read ) do
    s := s   dr['f1'].ToString   ', '   dr['f2'].ToString   '|';
  Label1.Text := s;
  dr.Close;
  dr.Free;
  cm.Close;
  cm.Free;
  cn.Close;
  cn.Free;
end;