[Resolvido]Erro tipos incompatíveis

Boa tarde, alguém pode me ajudar com o código abaixo?
Gostaria de saber pq está dando o erro de tipos incompatíveis.
Peguei esse exemplo de um amigo aqui do fórum.

Private Sub Comando46_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.Valor
For I = 1 To Me.txtparc
StrDateAdd = DateAdd("m", I, Format(Me.Data, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtparc
CurrentDb.Execute "INSERT INTO Pagamentos_ate_31_07(descrição,Data,Valor)" _
& " Values(""" & Me.Descrição.Value & """,#" & Format(StrDateAdd, "dd/mm/yyyy") & "#, """ & StrValorParc & """);"
Next I

End Sub

Olá

Mas em qual linha do código o depurador está mostrando erro?

StrDateAdd = DateAdd("m", I, Format(Me.Data, "dd/mm/yyyy"))

nessa linha amigo

Boa tarde,

Tente alterar o codigo do clique do botão pelo abaixo

Private Sub Comando46_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.Valor
For I = 1 To Me.txtparc
StrDateAdd = DateAdd("m", I, Format(Me.Data, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtparc
CurrentDb.Execute "INSERT INTO Pagamentos_ate_31_07(descrição,Data,Valor)" _
& " Values('" & Me.Descrição.Value & "',#" & Format(StrDateAdd, "dd/mm/yyyy") & "#, " & StrValorParc & ");"
Next I

End Sub

Abraço.

Mesmo erro amigo na linha abaixo

StrDateAdd = DateAdd("m", I, Format(Me.Data, "dd/mm/yyyy"))

Boa tarde,

Tente tirar o format dentro do DateAdd ficando StrDateAdd = DateAdd("m", I, Me.Data)

Olá a todos,
Talvez trocar a variavel I por x
Pode-se estar sem querer i por L
l minusculo por I maiusculo
Abraço

Bom dia,
deu erro "uso de null inválido"

Bom dia,

Siga a dica do ahteixeira e se nao der certo, poste o bd.

Abraço.

erro de tipos incompativeis novamente.

Poste o banco de dados.

Segue anexo

Olá a todos,
Antonio, não vi projeto estou no celular, mas teste assim (data à americana):
StrDateAdd = DateAdd("m", I, Format(Me.Data, "mm/dd/yyyy"))

Abraço

Obrigado pessoal pela ajuda.
Busquei outro código e consegui resolver.