[Resolvido]Problema ao inserir novos campos ao código

Boa noite amigos.. Estou utilizando a função CurrentDb.Execute para inserir em uma tabela os registros de um formulário. Tirei um modelo do repositório e estou tentando adaptar ao meu projeto mais esta difícil.. Neste código tem tres campos da tabela, que são (compras, Cpdata,covalor). Quero inserir mais campos a tabela como empresa, taxa e outros mais são estou conseguindo referenciar estes campos no código.. Preciso de uma ajuda dos amigos.. o código e esse:

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 tblExemplo(Compra,CpData,CpValor)" _ ' aqui esta o problema'
                & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Tente assim:

Values('" & Me.txtDescricao.Value & "',#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, " & StrValorParc & ");

Bom dia amigo criquio, olha o código que postei funciona normal com os campo que estão informados no código, acotece que eu criei um novo campo na tabela com o nome Data a Receber, e crie no formulario um caixa de texto com o nome de txtReceber. Quando eu inciro os dados no código ele não reconhece o campo da tabela data a receber, ja tentei assim data_a_receber, mais não reconhece.. oque posso fazer..?

Quero que fique assim:

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 tblExemplo(Compra,Data a receber,CpData,CpValor)" _
                & " Values(""" & Me.txtDescricao.Value & """,""" me.txtReceber & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Boa tarde quero resaltar que consegui resolver meu problema sobre a questão acima. Pesquisei um pouco e descobri qual foi meu erro.. Queria inserir novos campos a minha tabela pela função INSERT INTO tblExemplo(compra,data a receber, valor,liquido) o campo data a receber não estava sendo reconhecido e descobri que quando se digita palavras separadas tem que usar esta regra [data a receber] então ficou assim    INSERT INTO tblExemplo(compra,[data a receber], valor,liquido) e deu certo obrigado..

Dê uma olhada nesse tópico.

Obrigado criquio pela dica.. Abraço