代码创建adoquery的方法

var

 MyAdoq: TADOQuery;

begin

 MyAdoq := TADOQuery.Create(nil);

MyAdoq.Connection := frmDataPool.ADOConnection1;

with MyAdoq do
begin
Close;
SQL.Text := '具体的执行语句';
ExecSQL;
end;

MyAdoq.Free;

end;