[Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta

Olá meu povo
Será que alguém poderia me dar uma luz por favor
Esta aparecendo esta msg (erro na linha em negrito) não estou sabendo onde pode ser

Erro 3075 - Erro de sintaxe de data na expressão da consulta

Private Sub datarecebe_BeforeUpdate(Cancel As Integer)
If Me.TipoPag.Value = "debito" Or Me.TipoPag.Value = "cartão" Then
Exit Sub
'ElseIf Me.TipoPag.Value = "Dinheiro" Or Me.TipoPag.Value = "cheque" Then
ElseIf Me.TipoPag.Value = "Dinheiro" Then
       CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto,DtVenda, Historico, NParc, NomeLoja, tipopagamento, Entrada,NControle,NomeCliente) VALUES (#" & Format(DataEntrada, "mm-dd-yyyy") & "#,#" & Format(DATA_ORC, "mm-dd-yyyy") & "#,'" & Forms!frmcontroleVendaFinControle.txthistorico & "','" & Forms!frmcontroleVendaFinControle.parcelas & "','" & Forms!frmcontroleVendaFinControle.CódigoLoja & "','" & Forms!frmcontroleVendaFinControle.TipoPag & "'," & ValorVenda & "," & Forms!frmcontroleVendaFinControle!txtNumeroControle & ",'" & Forms!frmcontroleVendaFinControle!NomeCliente & "');"

     If MsgBox("Estes dados serão ADICIONADOS ao caixa - DADOS CORRETOS ?" & vbCr & vbCr & "Data de pagamento: " & DataRecebimento & vbCr & vbCr & "Valor do Recebido: Entrada ou A Vista: " & ValorEntrada, vbYesNo, "Confirmar os dados") = vbYes Then
  Else
     DoCmd.CancelEvent
  End If
End If
End Sub

Pessoal

depois de continuar insistindo, encontrei o erro, coloquei o campo errado no Insert Into...