¿access 2010 usa vba para agregar registros a la tabla?

Presiona Alt+F11 para ingresar a VBA, inserta un módulo y pega el siguiente código:

Sub inserta 150 registros en la tabla de códigos de barras ()

Para i = 1 a 150

'insertar en la tabla de códigos de barras (código de barras, lote) valores('A000001','JJJ1-1')

CurrentDb.Execute ("insertar en la tabla de códigos de barras (Código de barras, lote) valores('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")

Siguiente

Fin Sub

El cursor se posiciona en "Insertar 150 registros en la tabla de códigos de barras ()" y presione F5 para ejecutar este proceso.