Access - Incrementar meses automaticamente

Hola. Tengo un formulario en el que tengo que introducir automáticamente los 12 meses del año con los salarios de empleados.Para eso tengo un campo en la tabla que se llama MES . Tengo el código hecho para que me añada los registros automáticamente pero lo que no consigo es que me incremente el mes en cada registro.
El mes de Enero le introduzco manualmente con su salario y luego con código tengo que añadir a la tabla los 11 registros siguientes correspondientes a los meses restantes hasta Diciembre.


Seria:

MES SALARIO
Enero 1.200
Febrero 1.200
..
..
..
..
Diciembre 1.400


Gracias

Hola. como estas.
intentalo de esta forma.
dim smes,nmes,i as integer
dim salario as double
dim mes as string
'--------entrada de salario
salario=1200
'------cacturamos el mes que se intruduce
mes=txtmes.text
'almacena el numero del mes correspondiente al mes.


select case mes
case "Enero"
nmes=1
case "Febrero"
nmes=2
case "Marzo"
nmes=3
case "Abril"
nmes=4
case "Mayo"
nmes=5
case "Junio"
nmes=6
case "Julio"
nmes=7
case "Agosto"
nmes=8
case "Septiembre"
nmes=9
case "Octubre"
nmes=10
case "Noviembre"
nmes=11
case "Diciembre"
nmes=12
end select

'------utilizamos un bucle para sumar los meses
for i=1 to 12

select case nmes

case "1"
mes="Enero"
case "2"
mes="Febrero"
case "3"
mes="Marzo"
case "4"
mes="Abril"
case "5"
mes="Mayo"
case "6"
mes="Junio"
case "7"
mes="Julio"
case "8"
mes="Agosto"
case "9"
mes="Septiembre"
case "10"
mes="Octubre"
case "11"
mes="Noviembre"
case "12"
mes="Diciembre"
end select

'------------agrega los meses a una lista con su salario
list1.additem mes & " " & salario

nmes=nmes+1

if nmes=12 then
nmes=0
end if

next i

'----todo dentro de un command buton

espero que te sirva

Gracias Ramon. Me ha servido perfectamente. Muchas gracias por tu ayuda.

A la orden Roberto.