[MishaLukash]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin

adodataset2.open;
adodataset2.first;
for i:=1 to adodataset2.recordcount do
begin
adodataset1.recno:=i;
adodataset1.append;
adodataset2.getcurrentrecord(adodataset1.activebuf fer);
adodataset1.post;
adodataset2.next;
end;
end;

это пример из интернета
ругается - Не удается вставить пустую строку. Необходим хотябы один столбец значений.
база Access ,в таблицах есть данные. Может какие настройки таблиц?
спасибо