Gerei um novo campo e esta dando erro

Inserir o campo CpParcelas, que pertence ao txtparcelas.
Mas acredito que falta fechar ou inserir algo. está dando erro.
Alguém podem me ajudar.
Obrigado



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,CpParcelas ,CpValor)" _
               & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,  """ & txtparcelas & """)&  #, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Amigo, o Professor Gilberlanio Rocha, ensina a fazer isso nessas video Aulas...


O Código que ele usa no Botao é esse:

Código:

Private Sub bt_GerarParcelas_Click()
 Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tbl_ContasAreceber") 'Abre Tbl_ContasAreceber
    Valor_Parcela = Me.txt_TotalVenda / Me.QtdeParcelas 'Valor de cada Parcela
   
    For I = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
        rs.AddNew
        rs("Cod_TabVenda") = Me.CodVenda
        rs("Parcelas") = I & "/" & Me.QtdeParcelas
        rs("Valor_Parcela") = Valor_Parcela
        rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
        rs.Update
    Next
    rs.Close
    db.Close
    Me.frmSub_ContasAreceber.Requery  'Atualiza o SubForm
   
End Sub


Tabela é a Tbl_ContasAreceber

https://www.youtube.com/playlist?list=PLzjZljpleOl4IFN_dsNW_PHlV28b74JS5