[Регина]

Здравствуйте! Есть небольшая проблема. Создала бд, использую dbgrideh. adoquery datasourse Поставила dblookopcombobox в нем будет список дат (поле date_pro) - для этого использовала adoquery с запросом и datasourse. Выборка должна просиходить по кнопке Обновить.
Вот код:

procedure TForm1.tlb_updateClick(Sender: TObject);
 var
  i,k: Integer;
sort, fpodr, fpol, f, fcolor, fispol, fdate, s: String;
begin
Screen.Cursor:= crHourGlass;
     i:=0;
    while  i<DBGridEh1.Columns.Count do
    begin
      DBGridEh1.Columns[i].Title.SortMarker:=smNoneEh;
      i:=i+1;
    end;
    DBGridEh1.SortLocal:=False; //сбросить сортировку пользователя
    DBGridEh1.SortLocal:=True; //сброс произведен
        if DB_date.KeyValue<>null then
        if DB_date.KeyValue<>'--' then
      fdate:=' AND  (date_pro = '''+DB_date.KeyValue+''')'
    else
     fdate:='';
     f=fdate+fcolor+fispol // отрывок кода, сюда суммируются другие выборки
      sql_khp.SQL.Text:='SELECT  kod_map, podrotpr, podrpol, name, map, nzah, 
zmf, kol, date_pro, num_pro, zstate, kod_op, color, zispol, zdateinput ' +
     ' from dd092010 where podrotpr not like ("53%") and  kod_op not like ("65") and podrpol like ("53%") ' +
     ' '+f+
     ' ORDER BY podrotpr, podrpol ' + sort;
    if sql_khp.Active then sql_khp.Active:=False;
    sql_khp.Active:=True;

    Screen.Cursor:= crDefault;
  end;

Пишет ошибку неопределенного типа, как я поняла то ли он индекс трубует то ли что. Когда делала такую же выборку, но для полей "исполнение " и "цвет" ничего такого не было, но для них я поставила adotable а не adoquery. но с датой мне именно adoquery нужно использовать, таблица очень большая, а мне нужно выбрать в ней все числа сентября 2010 г. Вот. Помогите пожалуйста разобраться!!!!!