Helvio, Boa Tarde!!
cola este codigo em um module e execute,
Public Function GerNumSeq()
Dim intUltimNum, intNumVezes As Integer
Dim srtSQL As String
'Crie uma tabela chamada tab_Sequencia, e nela um campo chamado NumeroSequencia
intNumVezes = InputBox("Digite a quantidade a ser adicionado.", "CONTADOR")
intUltimNum = Nz(DMax("NumeroSequencia", "tab_Sequencia"))
For i = 1 To intNumVezes
intUltimNum = intUltimNum + 1
srtSQL = "INSERT INTO tab_Sequencia (Numerosequencia) VALUES (" & intUltimNum & ")"
CurrentDb.Execute (srtSQL)
Next i
End Function
att; Sidney