Treeview и ACCess

[i_Alishka]

Издравствуйте, есть субд в ней есть компонент Treeview, сделать так чтобы когда я выбираю категорию у меня открывалась нужная база, написал код только в использовании он не очень удобен т.е. при первом включении работает долго, посмотрите пожалуйста может есть вариант по легче

procedure TForm1.TreeView1Click(Sender: TObject);
begin
If FileExists('C:\база для магазина\таблицы'+TreeView1.Selected.Text+'.mdb') then
begin
datamodule2.ADOTable1.Active:=false;
datamodule2.ADOTable1.TableName:='Товары';
DataModule2.ADOConnection1.Connected:=false;
DataModule2.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+
'Data Source=C:\база для магазина\таблицы\'+TreeView1.Selected.Text+'.mdb';

DataModule2.ADOConnection1.Connected:=true;
DataModule2.ADOTable1.Active:=true;
groupbox2.Caption:=TreeView1.Selected.Text
end
end;