Gerar Data de vencimento

Pessoal estou tentando fazer um for para gerar numero de parcela e data de vencimento no Visual Studio 2012 só que as data não está indo na sequência por por exemplo

se a primeiro data for   22/08/2015
a segunda tem que ser 22/09/2015 a assim por adiante

Código:

Private Sub Gera_Calc()
       Using con As OleDbConnection = GetConnection()
           Dim i As Integer = 1
           Try
               con.Open()
               Dim sql As String = "INSERT INTO tblReceita(ControleVenda,NumParc,ValorParc,DataVenc) VALUES(?,?,?,?)"
               Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
               For i = 1 To txtParcela.Text
               cmd.Parameters.Add(New OleDb.OleDbParameter("ControleVenda", txtNovo.Text))
               cmd.Parameters.Add(New OleDb.OleDbParameter("NumParc", i & "/" & txtParcela.Text))
               cmd.Parameters.Add(New OleDb.OleDbParameter("ValorParc", txtTotalValor.Text / txtParcela.Text))
               cmd.Parameters.Add(New OleDb.OleDbParameter("DataVenc", DateAdd("m", i, (txtData.Text))))
             ' cmd.Parameters.Add(New OleDb.OleDbParameter("Quitada", ""))
               Next
              cmd.ExecuteNonQuery()
              Catch ex As Exception
              MsgBox(ex.Message)
              Finally
              con.Close()
              End Try
              End Using
       End Sub

Bom dia Idelbrandes...

O MaximoAccess é destinado ao ambiente de desenvolvimento do MS Access.

Sugiro procurar em fórum especifico do Visual Studio.

Grato pela compreensão !