Здравствуйте, victor_kst.
вот небольшой пример..
В общем то, оформлено в виде функции - сделано специально, что бы показать что и как можно (хотя, это далеко не всё).
Можно проще - например использовать Requery() и т.д.
Старайтесь использовать свойство Active для открытия/закрытия набора данных - это безопасный метод.
При Close и Open - если набор данных в противоречивом состоянии (открыт уже а мы вызываем Open...) выскачет ошибка - старайтесь не надеяться на то, что у вас в коде все "хорошо" и ошибок не будет.. Для этого, используется в примере защищенный блок try
Ну и очень полезно отключать на время переключения набора данных от контролов - DisableControl и после его активации включать - EnableControl - это уберет ненужно моргание в таблицах.

ExecSQL используется для выполнения команд, как правило, управляющих запросов, не возвращающих результат.

Приложение:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
ComboBox1: TComboBox;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
Label1: TLabel;
DBGrid1: TDBGrid;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
function RequeryDS(ds:TDataSet; sTbl:String):integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.RequeryDS(ds: TDataSet; sTbl:String): integer;
begin
result := 0;
ds.DisableControls; // что бы не моргало на время переключения
ds.Active := false;
try
if not ds.ClassNameIs('TADOQuery') then exit; // если это не TADOQuery - выходим
TADOQuery(ds).SQL.Clear;
TADOQuery(ds).SQL.Text := Format('SELECT * FROM %s',[sTbl]);
ds.Active := true; // лучше использовать защищенный (безопасный) метод свойства Active чем Open
result := ds.RecordCount;
finally
ds.EnableControls; // в любом случае вернем управление - выполнять обязательно, иначе так ничего и не отабразится
end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Caption := Format('всего записей: %d',[RequeryDS(ADOQuery1, ComboBox1.Text)]);
end;

end.

Здравствуйте, victor_kst.

ADOQuery4.Active:=True;
ADOQuery4.ExecSQL;
Этих двух строк не надо

И если B_CODE и B_NAME это имена полей, а не имя и псевдоним, то между ними нужна запятая

И помоему ADOQuery4.SQL.Clear; уже закрывает кверю, так что ADOQuery4.Active:=False; необязателен

Здравствуйте, victor_kst.
Могу предложить следующее решение: у меня в программе работает без проблем.