Нестандартное получение данных из баз данных OBDC

[KORVINKORI]

Люди! Помогите пожалуйста! Голова пухнет! 
Все стандартно: есть готовая база данных(таблица MS Access), с нее считываю данные через OBDS. Обычно поступаю стандартно, через ADOConnection => ADOTable => DataSource => DBGrid. И все в шоколаде! Работает!!! Но сейчас понадобилось другое. Без вывода таблицы DBGrid на форму (там для таблицы просто места нет да и по сути ненужна она), из таблицы  MS Access получить данные из одой-двух ячеек этой таблицы по ключевому слову находящейся в ключевом поле.

[zubr]

Вот примерный алгоритм одного из вариантов стандартного решения:
1. ADOConnection => ADOQuery
2. Создаем SQL-запрос типа:

Код:

ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'SELECT [FiledName1, FieldName2, ...] FROM [Tablename] WHERE [FieldName1 = "Ключевое слово"]';
ADOQuery1.Active := True;

3. Обрабатываем полученные данные:

Код:

ADOQuery1.First;
While not ADOQuery1.Eof do
begin
   data1 := ADOQuery1.FieldByName('FiledName1').AsString;
   data2 := ADOQuery1.FieldByName('FiledName2').AsInteger;
   //..........................................................
  ADOQuery1.Next;
end;

[Kivals]

Offtopic: Тема порадовала Я думал тут о высоких материях, а совсем забыл, что для Дельфи "стандарное получение данных" = "отображение на форме"
Автор умудрился написать "ODBC" 2 раза по-разному, причем оба раза неправильно...

[KORVINKORI]

Спасибо zubr!
Только у меня при запуске ADOQuery, выдает ошибку   => ADOQuery1: Missing SQL property.   
Почему, пока не понял!?    Буду разбираться!
Сейчас пока пошел другим путем:
1. ADOConnection => ADOTable
2. Затем, через Lookup:

     if ADOTable1.Locate('CSecurity','SBER03 [EQBR]',[])    //проверка наличия данных в таблице
      then
       begin
       LastPrice:=ADOTable1.Lookup('CSecurity','SBER03 [EQBR]','CLastPrice');    //считывание нужной ячейки
       Label1.Caption:=FloatToStr(LastPrice);                                                        //вывод данных
       TimeMicex:=ADOTable1.Lookup('CSecurity','SBER03 [EQBR]','CTimeMicex');  //считывание нужной ячейки
       Label2.Caption:=TimeMicex;                                                                          //вывод данных
       end
       else
       begin                                                                                                              //данные отсутствуют
       Label1.Caption:='N/А';
       Label2.Caption:='N/А';
       end;

Кстати, кому интересна тема, нашел хороший по моему мнению ресурс:   http://it.kgsu.ru/DelADO/oglav.html