[Resolvido]Inserir mais um campo na geração de parcelas!

Ola pessoal estou usando essa linha de código que o cliquio me ajudou agora pouco: Para gerar parcelas!
código:

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

Está funcionando normal, porem preciso inserir mais um campo"ValorTotalCompra" e não estou conseguindo!
Parece que hoje não é meu dia!

Tentei assim:

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

Mais não funciona!
Está dando este erro:

Número de valores da consulta e campos de destino não coincidem!

Alguem pode me ajudar por favor?

Olá amigo Norberto!
Ficou assim:
CurrentDb.Execute "INSERT INTO tabProvisoria(DataCompra,Compra,ValorCompra,DataVencimento,CpValor)" _
& " Values(#" & Format(Me.TxtDataCompra, "dd/mm/yyyy") & "#,""" & Me.txtDescricao.Value & """,""" & Me.ValorTotalCompra.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"

Agora ficou inserido o valor total da compra, funcionou!

Porem agora está dando um erro: Retornando a data da compra errada, retorna sempre "05/12/2012"
Não importa a data da compra digitada sempre me retorna 05/12/2012.

Norberto no campo "DataCompra"
Está alternando me retornando datas erradas, as vezes certa, mais a maioria errada!

Norberto segue o bd!

http://speedy.sh/CsNQb/PARCELAS.zip

Não funcionou Norberto!

E o problema estar por ai, porque antes deu esse problema ai o cliquio pediu para eu trocasse o now, pelo nome do campo ai funcionou!

Agora você tem razão é muito aspas"

Descobri uma coisa aqui Norberto!

Está retornando a data invertida!
Quando digito:

12/05/2012 retorna 05/12/2012.
11/01/2012 retorna 01/11/2012.
10/03/2011 retorna 10/03/2012.

Acho que é a formatação da data Norberto.

Consegui Norberto veja:

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

Olha o formato da data eu a inverti a funcionou!
Me!TxtDataCompra, "mm/dd/yyyy")

Esse último código que você pediu que eu testasse, veja o final dele o formato da data é invertido! Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & ...........este, veja o dia e mês!

Ai inverti tambem o inicio do código para:.....& " Values(#" & Format(Me!TxtDataCompra, "mm/dd/yyyy")
Ai funcionou Normal!

Agradeço Norberto, um abraço!