add new value in sub form

[amna77]

Hi I am trying to save values in my sub form. actually on mu sub form i am keeping the date. when ever user enter date in the main form it gets in to subform date. thats what i want.
Forms!frmCMMDataEntry!Form1!Date = Me.Date
but the thing is when i add new record on main form, then sub form values does not save. i tried to add codes on the main form add new record button.

DoCmd.GoToRecord , , acNewRec
DoCmd.Save acForm, "Form1"
but it gives me error. anyidea whats wrong.
thanks