运行SQL语句

procedure RunSQL(sql : string);
var
  comm : TAdoCommand;
begin
  comm := TAdoCommand.Create(nil);
  comm.Connection := DM_Frm.AdoConn;
  comm.CommandText := sql;
  comm.Execute;
  FreeAndNil(Comm);

end;