[Resolvido]Gerar Parcelas: Inserir campo data da compra!

Olá meus amigos "Ninjas" boa noite!
Gostaria de contar com a ajuda de vocês!

Estou tentando adaptar no código do Harysohn, para inserir mais um campo para aparecer tanto na listBox, quando enviar para a tabela, mas ja faz um tempo, que não é pouco, não estou conseguindo! Pretendo iserir o campo Data da compra.

Eis o código:

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tabProvisoria(Compra,DataVencimento,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Segue o bd:

http://speedy.sh/JcPjY/PARCELAS-2003.zip

Não entendi. Na tabela tem as três parcelas a que você se refere. Eu fiz um teste aqui e parece ter funcionado tudo certinho. Ou então eu não entendi bem o que deveria acontecer que não aconteceu.

Cliquio boa noite!
Vou explicar melhor:

O código esta gerando as parcelas normal!
3 campos no listbox:
Compra -----------DataVencimento---------CpValor
Computador........11/06/2012.............320,00
computador........11/07/2012.............320,00
Computador........11/08/2012.............320,00


Eu necessito acrescetar mais um campo ai ficaria assim:

4 campos no listbox:
Compra -----------DataVencimento---------CpValor......DataCompra
Computador........11/06/2012.............320,00.......11/05/2012
computador........11/07/2012.............320,00.......11/05/2012
Computador........11/08/2012.............320,00.......11/05/2012

Acrescentar a data do compra!
Se puder me ajudar ficaria agradecido.

Não seria só adicionar o campo DataCompra?

Código:

CurrentDb.Execute "INSERT INTO tabProvisoria(DataCompra,Compra,DataVencimento,CpValor)" _
                & " Values(#" & Format(Now, "dd/mm/yyyy") & "#,""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"

Cliquio quase deu:

Mas com sua correção adicionou o campo DataCompra, porem retorna sempre a data 05/11/2012.
Preciso que ele retorne a data digitada no campo "TxtDataCompra".
No bd que enviei é a data digitada no textBox "Texto73".

Altere o Now por Me.NomeDoCampo.

Sem palavras, você foi extraordinário!
Agradeço e obrigado!
Um abraço!

Grato pelo retorno.