Foros Club Delphi - problemas para agregar mas de un registro

Hola a todos::

Estoy trabajando con delphi 7, mysql, zeos...

mi duda es la siguiente no puedo ni agregar ni modificar mas de un registro al agregar un registro estoy usando insert y para modificar update..

Osea si ingreso o modifico un registro y deseo ingresar o modificar otro me aparece un error "can not open resulset". tengo que salir de la aplicacion y luego realizar la operacion...

Código:

begin

           ZQrynvo.sql.clear;

           ZQrynvo.Sql.Text := 'INSERT INTO especialidad (cod_especialidad,des_especialidad,nro_orden,nota) VALUES ("'+codigo_esp.Text+'",'+'"'+descripcion_esp.Text+'",'+'"'+orden.Text+'",'+'"'+nota.Text+'")';

                ZQrynvo.execsql;



           ZQrynvo.sql.clear;

           ZQrynvo.Sql.Text := 'INSERT INTO concepto (cod_especialidad,des_concepto,monto,fecha) VALUES ("'+codigo_esp.Text+'",'+'"'+descripcion_con.Text+'",'+'"'+costo.Text+'",:fecha)';

           ZQrynvo.ParamByName('fecha').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy',Now));

           ZQrynvo.execsql;

           

           ShowMessage('LOS DATOS  GRABADOS SATISFACTORIAMENTE!!');

                          if MessageDlg('AGREGARA OTRO REGISTRO ?????', mtConfirmation, [mbYes, mbNo], 0) = mrYes

                then

                codigo_esp.Clear;

]

gracias