BDE里的BatchMove控件在ADO里没法用!在ado里实现相似的功能有什么简单方法?(100分)

BDE里的BatchMove控件在ADO里没法用!在ado里实现相似的功能有什么简单方法?
多谢!

只好用程序一个一个字段的赋值（保证两个表结构完全一致）
var
v_value: Variant;
j: integer;
begin
j := 0;
while not table1.eof do
begin
Table2.append;
for j := 0 to Table1.FieldCount - 1 do
begin
v_value := Table1.Fields[j].value;
Table2.Fields[j].value := v_value;
end;
Table2.post;
table1.next;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var TempList:TStringList;
TempFile:String;
begin
TempFile:='C:/Temp.XML';
ADOQuery1.SaveToFile(TempFile,pfXML);
TempList:=TStringList.Create;
TempList.LoadFromFile(TempFile);
TempList.Insert(TempList.IndexOf('<rs:data>')+1,'<rs:insert>');
TempList.Insert(TempList.IndexOf('</rs:data>'),'</rs:insert>');
TempList.SaveToFile(TempFile);
ADOQuery2.LoadFromFile(TempFile);
ADOQuery2.UpdateBatch(arAll);
end;

多人接受答案了。