[TusyaTusyabratsk]

Здравствуйте! Я написала код,чтобы в DBGrid можно было в одной из ячеек выбрать значения из другой таблицы посредством выпадающего списка. Система выдает следующую ошибку:
ADOTable1 cannot perform this operation on an open dataset

Вот блок кода:

Код:

procedure TForm5.FormCreate(Sender: TObject);
begin

 with ADOTable1 do
  begin
    ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
   ExtractFileDir(ParamSTR(0)) + '\db.mdb;' +
   'Mode=ReadWrite;Persist Security Info=False';
   TableName:= 'Страхование граждан';
    Active:= true;
   First;
    while not Eof do
    begin
     DBGrid1.Columns.Items[6].PickList.Add(FieldValues['ФИО']);
     Next;
    end;
   Active:= false;
   TableName:= 'Прием и выплаты денежных средств';
  end;
 end;

Ошибку ставит на строчку
TableName:= 'Страхование граждан';