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;
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;