Lo mismo pero más simple.
Crear un DataModule (Data1) y asignarle un ADOConnection y las respectivas ADOTables.
En el evento OnCreate del DataModule asignar el siguiente código:
Código Delphi
[-]procedure TData1.DataModuleCreate(Sender: TObject);
begin
Data1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
'+ ExtractFilePath(Application.ExeName) + 'TuBD.mdb;Persist Security Info=False';
Data1.ADOConnection1.Provider := 'Microsoft.Jet.OLEDB.4.0';
Data1.ADOConnection1.Connected:= True;
Data1.Tabla1.Active:= True;
Data1.Tabla2.Active:= True;
Data1.Tablaetc.Active:= True;
end;
Donde
'+ ExtractFilePath(Application.ExeName) + 'TuBD.mdb es la ruta donde se encuentra tu base de datos.
Saludos