Установить Caption из БД

[MixanMM]

Добрый день всем, есть БД Акцесс, подключение через АДО. На форме есть ДБГрид, который работает норм и данные из БД показывает, (подключение значит проходит), но потом мне нужно установить название Label по условию :

ADOQuery1.Active :=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT imya FROM sklad_ostatki WHERE kran=1');
ADOQuery1.Active:=True;
if ADOQuery1.RecordCount > 0 then
  begin
    Label44.Caption:= ADOQuery1.Fields[0].AsString;
 end;
 else
  begin
  Button1.Enabled :=false;
  end; 
end;

Т.е. сделать запрос, если значение имеется - то в название поставить имя из БД. Но не работает как надо =(, в ДБГрид в строку приходит результат запроса (но тут думаю второе подключение сделать?)

[Stilet]

Два варианта:
1) Использовать метод Locate() или loockup() для поиска в уже полученных данных из грида
2) создать отдельный компонент чисто для этих целей.