[Resolvido]Repetir registro com datas diferente

Boa noite a todos.

Estou empacado numa rotina e preciso da ajuda dos amigos. É o seguinte...

Tenho um texbox que contem a data atual, e preciso fazer por exemplo 10 lançamentos do mesmo registro adicionando apenas 1 mês a frente.
Ex:
09/10/2015
09/11/2015
09/12/2015
09/01/2016
09/02/2016...




Esto a tentar..

Código:

Dim I As Integer

For I = 1 To Me.txtQtdLanc

    Me.txtData = DateAdd("m", I - 1, Month(txtData))
 
    CurrentDb.Execute "Insert Into tbl_Lancamento (DataLanc,Tipo,Descricao,ValorLanc,ValorUnt,Quantidade) Values ('" & Me.txtData & "','" & Me.cboTipo & "','" & Me.txtDescricao & "','" & Me.txtValor & "','" & Me.txtValorUnt & "','" & Me.txtQtd & "')"

Next I


Mas não tá dando muito certo naum...


Muito agradecido e a paz esteja com todos.

Olá Elias, teste assim:

Código:

Dim I As Integer
Dim dtCalculada As Date

For I = 1 To Me.txtQtdLanc

    dtCalculada = DateAdd("m", I - 1, txtData)
 
    CurrentDb.Execute "Insert Into tbl_Lancamento (DataLanc,Tipo,Descricao,ValorLanc,ValorUnt,Quantidade) Values ('" & Format(dtCalculada, "mm/dd/yyyy") & "','" & Me.cboTipo & "','" & Me.txtDescricao & "','" & Me.txtValor & "','" & Me.txtValorUnt & "','" & Me.txtQtd & "')"
    DoEvents
Next I

Abraço

Perfeito Teixeira, muito agradecido mesmo que Deus o abençoe.

Olá Elias, obrigado pelo retorno.
Bom fim‑de‑semana
Abraço