I noticed that you changed the table field to My Date. But what else did you change. I can't make it work when I copy the forms to my database?
Where does Get date come from in the event proceedure. I tdebugs this expresion.
Private Sub CmdDate_Click()
GCalSource = "mydate"
GetDate [myDate]
DoCmd.OpenForm "Calendar", acNormal, , , acFormAdd, acDialog
End Sub