incremento de data no mes seguinte

Bom dia
Alguem tem uma ideia de como consigo o seguinte :

queria num Loop identificar a data no proximo mes com o mesmo dia, por exemplo , partindo do dia 10-05-2014, passar para os dias 10-06-2014, 10-07-2014, etc,
O problema é que quando chega a Dezembro, passa para o mes 13 que nao existe. Ate agora tenho o seguinte :

DiaSiguinte = #10-05-2014#
UltimoDia=#31-12-2015#

  Do While diaSiguinte< Ultimodia    
      diaSiguinte = DateSerial(Year(diaSiguinte), Month(diaSiguinte) + 1, day(diaSiguinte))
      ' Aqui faço alguma coisa com a variavel diaSiguinte
  Loop


Obrigado
Carlos

Olá, tem como postar os objetos envolvidos no pedido de ajuda? Fica bem mais fácil de ajudar

oi Beto,
Obrigado, acabei resolvendo da seguinte forma :
-------------------
diaLimite = #31-12-2015#
DiaProximo =#10-05-2014#

With rstDatas
Do While diaProximo < diaLimite
i = i + 1
.AddNew
' aqui faço alguma coisa
diaProximo = DateAdd("m", i, primeiroDia)
.Update
Loop

--------------------------
Desta forma vou para o mesmo dia no mes seguinte
Carlos

Ok amigo, se conseguiu resolver marque o tópico como resolvido para não deixar ele pendente.