Eso lo puedes controlar al momento de guardar los datos, usa la instruccion:
Código SQL:
Ver originalrs.OPEN "SELECT MAX(NUMERO) AS NUMERO_A_GUARDAR FROM NOMBRE_TABLA"
Te traerá el ultimo numero, entonces:
Código vb:
Ver originalvarNumero=rs!NUMERO_A_GUARDAR +1
'GUARDAS TUS DATOS
Cnn.Execute="Insert into Tabla (Campo1, Campo2, Numero) values ('bla','bla bla'," & varNumero & ")"
'ACTUALIZAS LA TABLA QUE TIENE EL NUMERO DE SECUENCIA CON EL ULTIMO NUMERO USADO
Cnn.Execute="Insert into NOMBRE_TABLA (NUMERO) values (" & varNumero & ")"