Переключится между таблиц

[Михаил Юрьевич]

Есть БД Access , в ней две таблицы,хотел програмно переключаться на эти таблицы

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ADOTable1.TableName:='Tab1';
form1.ADOTable1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.ADOTable1.TableName:='Tab2';
   form1.ADOTable1.Active:=true;
end;

Но при переключении выдает ошибку "Cannot perform this operation on an open dataset"

[Stilet]

Ну так закрывай перед подключением:

form1.ADOTable1.Active:=false;
Form1.ADOTable1.TableName:='Tab2';
form1.ADOTable1.Active:=true;

[Михаил Юрьевич]

Спасибо за помощь