Var
cn:tadoconnection;
rs:tadoquery;
sFileName,sTableName:string
begin
//Create Object and Connect to Access Database
cn:=tadoconnection.create(nil);
sFileName:='XXX.MDB';
sTableName:='XXXTable';
cn.open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+sFileName;
rs=tadoquery.create(nil);
with rs do begin
connection:=cn;
sql.add('Select * From '+sTableName)
execsql;
active:=true;
end;
//After Used
rs.free;
cn.free;
end;