[dmagui]

Hola estoy intentando hacer la instruccion propuesta por Contraveneno, pero tengo un inconveniente:

Código Delphi [-]
 
procedure TForm1.Button3Click(Sender: TObject);
 begin
   with ibdataset1 do begin
     Close;
     selectsql.Clear;
     selectsql.Add('insert into cotizacion(codigo_comp, item_subcomp)');
     selectsql.Add('select codigo_comp, item_subcomp from prod_comp where codigo_prod ='
       + Quotedstr(DBlookupcombobox4.Field.Value)+'and item_subprod ='
       + Quotedstr(Dblookupcombobox5.field.Value));
     execsql;
     open;
   end;
 end;

y no me esta guardando nada en la base de datos, debo agregarle algo mas??, gracias por la ayuda