Visual Basic - ayuda

Una gran ayuda por favor, tengo una tabla con 100 registros con un campo en blanco (numerico) a este le quiero asignar unos numeros,el primer registro empieza con 1 sigue el 5,9,13,17 y 21 (1+4+4+4+4+4) 5 vecez suma 4, este procedimiento que detallo abajo si lo hace, pero lo que quiero es: despues de hacer esta carga de numeros empieze con el 2-6,10,14,17,21 y siga con el 3-7,11,15,19,24 y asi continue hasta terminar el archivo. Agrdezco de antemano su ayuda

""""PROCEDIMIENTO QUE REGISTRA 1-5,9,13,17,21""""

Set Db = OpenDatabase(BD)
Set RST = Db.OpenRecordset("TABLA")

dim inicio
inicio=1

'al primer registro agrega el 1
RST.MoveFirst
RST.Edit
RST.Fields!CONS = INICIO
RST.Update
RST.MoveNext

'empieza el segundo registro
Dim Contador
Contador = True: Contador = 0 ' Inicializa variables.

Do While Contador < 5
Contador = Contador + 1 ' Incrementa el contador.
RST.Edit
RST.Fields!campo = INICIO + 4
RST.Update
RST.MoveNext
INICIO = INICIO + 4

Loop