Добавляются лишние столбцы в DBGrid

[atihiy2010]

Добрый день всем.
Есть два файлика БД Acces db1.mdb таблица NewTable и db3.mdb таблица Award (по 4 столбца в каждой). Работаю с ADOQuery. По нажатию той или иной кнопки в DBGrid должна загрузится либо одна либо вторая. По умолчанию грузится db1 и сетка показывает 4 столбца как надо, но каждое переключение добавляет в конец еще 4 пустых столбца. Как от этого избавится.

procedure TMainForm.FormShow(Sender: TObject);
var BaseName, ConString, sql_line,table:string;
begin

   BaseName:= 'db1.mdb';
   table:='NewTable';
 ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+'"'+BaseName+'"';


  DBGrid1.Columns.Add;
  DBGrid1.Columns[0].FieldName:='Деталь';
  DBGrid1.Columns[0].Width:=100;
  DBGrid1.Columns[0].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[1].FieldName:='Количество';
  DBGrid1.Columns[1].Width:=100;
  DBGrid1.Columns[1].Alignment:=taRightJustify;
  DBGrid1.Columns[1].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[2].FieldName:='Место';
  DBGrid1.Columns[2].Width:=100;
  DBGrid1.Columns[2].Alignment:=taCenter;
  DBGrid1.Columns[2].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[3].FieldName:='Цена';
  DBGrid1.Columns[3].Width:=50;
  DBGrid1.Columns[3].Alignment:=taRightJustify;
  DBGrid1.Columns[3].Title.Alignment:=taCenter;


   AdoConnection1.ConnectionString:=ConString;
 AdoConnection1.Open;
 sql_line:='SELECT Деталь, Количество, Место, Цена FROM '+table+' ORDER BY Деталь';
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add(sql_line);
 ADOQuery1.Active:=True;
end;

procedure TMainForm.AwardCompanyClick(Sender: TObject);
var BaseName, ConString, sql_line,table:string;
begin

ADOQuery1.Edit;
ADOQuery1.Post;

ADOConnection1.Close;
ADOQuery1.Active:=false;

  Tryumf.Checked:=False;
  AwardCompany.Checked:=True;


   BaseName:= 'db3.mdb';
   table:='Award';

 ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+'"'+BaseName+'"';


  DBGrid1.Columns.Add;
  DBGrid1.Columns[0].FieldName:='Деталь';
  DBGrid1.Columns[0].Width:=100;
  DBGrid1.Columns[0].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[1].FieldName:='Количество';
  DBGrid1.Columns[1].Width:=100;
  DBGrid1.Columns[1].Alignment:=taRightJustify;
  DBGrid1.Columns[1].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[2].FieldName:='Место';
  DBGrid1.Columns[2].Width:=100;
  DBGrid1.Columns[2].Alignment:=taCenter;
  DBGrid1.Columns[2].Title.Alignment:=taCenter;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[3].FieldName:='Цена';
  DBGrid1.Columns[3].Width:=50;
  DBGrid1.Columns[3].Alignment:=taRightJustify;
  DBGrid1.Columns[3].Title.Alignment:=taCenter;


   AdoConnection1.ConnectionString:=ConString;
 AdoConnection1.Open;
 sql_line:='SELECT Деталь, Количество, Место, Цена FROM '+table+' ORDER BY Деталь';
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add(sql_line);
 ADOQuery1.Active:=True;
 end;

Подскажите пожалуйста что делаю не так. Заранее огромное спасибо.

[Streletz]

Уберите

DBGrid1.Columns.Add;

необходимые столбцы ADO добавит самостоятельно после вызова Open для ADOQuery.
После этого можно спокойно задавать тексты заголовков столбцов и всё остальное.

[atihiy2010]

Спасибо огромное. Все заработало. И ведь помню когда-то уже такое было, и сам допер, а счас в голову не лезло)

[Streletz]

Пожалуйста!