Nueva numeración por cambio de año

[agutierrezd]

bueno esto es una parte del código que inserta en la base de datos, una vez registrado asigna un consecutivo

Set GrabarDoc = Server.CreateObject ("ADODB.Command")
GrabarDoc.ActiveConnection = MM_conSIAC_STRING
GrabarDoc.CommandText = "INSERT INTO dbo.DocumentosRecibidos (codModulo, CodTipoDocumento, HoraRegistro, AnoRegistro, MesRegistro, DiaRegistro, CodMedioRecepcion, FechaRegistro, EstadoSolicitud, EstadoRecibido_SN, FuncionarioRegistro, UidRegistro, NumeRegistro, CodServicioTramite, CodTema) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

espero sea de ayuda, la verdad reconozco que no soy muy ducho pero estoy aprendiendo..gracias nuevamente