king,
when you call the calendar form write the following:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCalendar"
DoCmd.OpenForm "frmCalendar", , , , , acDialog, Me.name & ";<your date field>"
then, in your calendar form write...