[Resolvido]Código com data errada

Grandes Mestres,

Necessito de ajuda mais uma vez. Adaptei o código abaixo (peguei aqui forum) e depois de bastante tempo é que notei que o mesmo está gravando a data no modelo invertido. Já tentei várias maneiras e só faz piorar. Alguém pode me ajudar?
Este código é para gravar na tabela TbExclusoes quando se faz a exclusão (pelo formulário) de um cadastro (registro) gravando a data, hora e nome da pessoa do cadastro (NomeSolicitante).

Private Sub ComandoExclui_Click()


Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("Confirma excluir registro? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes
CurrentDb.Execute "INSERT INTO TbExclusoes(DataExc, HoraExc, NomeSol) Values (#" & Date & "#, #" & Time & "#,'" & Me.NomeSolicitante & "');"

DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh

End Sub

Desde já muito grato a todos...

Grandes Mestres,

Substitui a linha do meu código pela linha abaixo (sugestão do mestre Vanderlei) e deu tudo certo.
Mesmo assim muito grato a todos e um grande abraço.

CurrentDb.Execute "INSERT INTO TbExclusoes(DataExc, HoraExc, NomeSol) Values ( Date(), Time(),'" & Me.NomeSolicitante & "');"

Outra solucao, a titulo de conhecimento seria formatar a data tambem.

(#" & format(date,"dd/mm/yyyy") & "#, #" & Time & "#,'" & Me.NomeSolicitante & "');"

Faltou apenas o resolvido no tópico amigão.

Cumprimentos

Resolvido