Поисковик со сменой таблиц аксесса

[->@LEX<-]

Нужно реализовать переключение поисковика между таблицами

Решил менять коннекторы:

if RB1.Checked = True then
 begin 
Adoquery1.Connection := ADOconnection1 
end;
if RB2.Checked = True then 
begin  
Adoquery1.Connection := ADOconnection2
end;
if RB3.Checked = True then
begin  
Adoquery1.Connection := ADOconnection3  
end;
if RB4.Checked = True then
begin  
Adoquery1.Connection := ADOconnection4   
end;
if RB5.Checked = True then 
begin  
Adoquery1.Connection := ADOconnection5    
end;

С выполнением процедуры вылетает ошибка:

Невозможно использование подключения для выполнения операции.
Оно закрыто или не допускается в данном контексте.

После шажатия ОК все работает,но сам факт вылета ошибки наталкивает на размышления(

[->@LEX<-]

Нашел решение)

ADOQuery1.SQL.Clear ;
ADOQuery1.Close ;

перед каждой сменой коннектора

[evg_m]

перед каждой сменой коннектора

достаточно только AdoQuery1.close;
и ОДИН раз ПЕРЕД началом блока проверок

AdoQuery1.close; 
if RB1.chcked then ADOquery1.connection:=ADOConnection1;
if RB2.checked then ADOquery1.connection:=ADOConnection2;
.....

Решил менять коннекторы:

может лучше менять само подключение

ADOConnection1.Close;
s:=format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False', [self.FileOpen1.Dialog.FileName]);
ADOConnection1.ConnectionString:=s;
// ADOConnection1.LoginPrompt:=false;
ADOConnection1.Open;