[Resolvido]InsertInto - Confirmação da inserção dos dados é ignorada

Ola pessoal

Alguém poderia verificar o que esta errado com este código, mais precisamente quanto a confirmação dos dados.
A logica seria, se os dados estiverem corretos, adiciona ao CADCAIXA caso contrario cancela o evento.
Acontece que é ignorado, tanto faz colocar sim ou não ele adiciona ao CADCAIXA do mesmo jeito.

Grato


Private Sub Form_BeforeUpdate(Cancel As Integer)
      CurrentDb.Execute "INSERT INTO CADCAIXA(Datapagto,Historico,tipopagamento,entrada,NControle,NomeCliente) VALUES (#" & Format(txtdatapagamento, "mm-dd-yyyy") & "#,'" & Forms!frmBaixaControleFin.txthistorico & "','" & Forms!frmBaixaControleFin.TipoPag & "','" & txtvalorpagamento & "'," & Forms!frmBaixaControleFin!txtNumeroControle & ",'" & Forms!frmBaixaControleFin!txtNomeCliente & "');"
      If MsgBox("Estes dados serão ADICIONADOS ao caixa - DADOS CORRETOS ?" & vbCr & vbCr & "Data de pagamento: " & txtdatapagamento & vbCr & vbCr & "Valor de pagamento: " & txtvalorpagamento, vbYesNo, "Confirmar os dados") = vbYes Then
   Else
       DoCmd.CancelEvent
   End If
End Sub

Grato pela atenção, como sempre
Resolvido