Visual Basic.NET - Problema con secuencia

Hola, tengo este trigger en mi base de datos:

CREATE OR REPLACE TRIGGER METAGEST.AUTO_HORARIO
BEFORE INSERT
ON HORARIO
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
begin
select SEQ_HORARIO.nextval into :new.ID from dual;
end;
/
Y esta es la línea que ejecuto desde vb .net:

cadSql = "INSERT INTO HORARIO(ID_PERSONAL, ANNO, FECHA, HORAS) VALUES" & _
"(" & idEmpleado & ", '" & anno & "', TO_DATE('" & fecha & "','YYYYMMDD'), " & horas & ")"

La tabla HORARIO tiene el ID como clave primaria que viene de la secuencia.

Bien, después de ejecutar esa sentencia, en lugar de insertar ua nueva línea en la base de datos, actualiza la última, y el id en lugar de incrementar el ID en +1, lo hace en +2

Sabe alguien que puede estar pasando?

Gracias