MSSQL Server>Delphi. Ошибка при добавлении данных

[POPOV]

Здраствуйте !
Возникла небольшая проблемка. Базу данных MSSQL 2005 подключаю к Delphi 2005 через ADO. на форме есть DataSource, ADOTable, ADOConnection, ADOQuery, DBGrid.

ADOQuery1 подключаю к DataSource1 и ADOConnection1.
DBGrid подключаю к DataSource1. Остальное как обычно.

Для ввода данных исполюзую Edit.

В кнопке "добавить" пишу:

DataModule2.ADOQuery1.CLose;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('insert into grp (gr) values (:p1)');
DataModule2.ADOQuery1.Parameters.ParamByName('p1').Value:=Edit1.Text;
DataModule2.ADOQuery1.Open;
DataModule2.ADOQuery1.Close;

В результате по добавлении данных вылазит ошибка: "ADOQuery1: CommandText does not return a result set". Но при этом данные всё равно добавляются... Почему вылазит эта ошибка ?

[dron-s]

для операторов Update, Delete, Insert Into надо делать не Open а ExecSQL