Date Not Changing In Table

I have this code that a member helped me create in one of my forms. However, the date that is being input into the table is 30 Dec 99. It won't change no matter what the code is changed to.

The date is showing up correctly in the subform, it is just not inputting right into the table.

Private Sub Form_Open(Cancel As Integer)
Dim intNQ
intNQ = Nz(DMax("QuizNo", "tblQuizzes", "logon='" & Environ("Username") & "'"), 0) + 1

Me.subrmQuizzes.Form.Logon = Environ("Username")
Me.subrmQuizzes.Form.DATEControl = Format(Now(), "DD MMM YYYY")
Me.subrmQuizzes.Form.QuizNo = intNQ

CurrentDb.Execute "INSERT INTO tblQuizzes ( QUIZNO, [DATE], LOGON )SELECT " & intNQ & " , " & Format(Now(), "DD/MM/YYYY") & " , '" & Environ("Username") & "'"
End Sub

Any ideas?