La requete elle marche mais tjr message d'erreur ( insert )

bonjour a tous :ccool:
je suis débutant au delphi7,
quant j'exécute la requête (au dessous) dans delphi7, il bloc et stop d'exécution, malgré la requête exécute et il donne la résulta mais avec un message d'erreur :cry:
voici le code.

/*****************************
remarque mon ADOQUERY  sont nom est   insr 
/**************************************************************
procedure TForm1.Button3Click(Sender: TObject);

begin
datam1.insr.Active:= false;
datam1.insr.SQL.Clear;
datam1.insr.SQL.add ('INSERT INTO diplome (MAT_EMP, code_dip ,date_obten,designatio )values(:p1,:p2,:p3,:p4 )');
datam1.insr.Parameters.ParamByName('p1').Value := QuotedStr(Edit1.Text) ;
datam1.insr.Parameters.ParamByName('p2').Value := QuotedStr(Edit2.Text) ;
datam1.insr.Parameters.ParamByName('p3').Value := QuotedStr(Edit3.Text) ;
datam1.insr.Parameters.ParamByName('p4').Value := QuotedStr(Edit4.Text);
datam1.insr.Open;
datam1.insr.Active:= true;
end;
/*************************************************************

et voila le message d'érreur

project1.exe raised exception class EdatabaseError with message 'ADOQUERY: commandtext does not return a result set'. Process
 stopped.Use step or run to continue

/*********************************************************

merci mes amis d'avance

c'est vous avez autre idée aide moi