复制表为什么出错？

Question

我想复制一个表，语句如下：
var
  str:string;
begin
  str:=Edit1.Text;
  with ADOQuery1 do
    begin
      close;
      SQL.Clear;
      SQL.Add('select * into '+str+' from Contact');
      open;
    end;
end;
    Contact是已存在的表，复制的表的名称由Edit1给出。
    执行后，功能是完成了，有了一个新表，但它总是弹出一个出错提示：
  'ADOQuery1:CommandText does not return a result set.'
    麻烦大家帮我看看是怎么回事，谢谢了！

Answer 1

insert into '+str+' select * from Contact试试

Answer 2

呵呵问题已经解决了，错在最后不应该用open,而要用ExecSQL方法。
      二位说的是已经存在一个表，从另一个表中copy数据，但并不能新建一个表。
     还是很谢谢二位，每人10分。