[Assistant]

для запросов вида INSERT, DELETE, UPDATE используйте TADOCommand:

Код:

ADOCommand1.CommandText := 'тут запрос';
ADOCommand1.Execute;

или уж если не хотите использовать TADOCommand, делайте не Open, а ExecSQL в DataModule2.qry1