Popup calendar

[DQ05]

i have created a popup calendar on a form in access using the following code

Private Sub Calendar_Click()
' Set OrderDate to the selected date and hide the calendar.
Get_in.Value = Calendar.Value
Get_in.SetFocus
Calendar.Visible = False
End Sub

Private Sub Get_in_MouseDown(Button As Integer, _
Shift As Integer, X As Single, _
Y As Single)
' Show Calendar and set its date.
Calendar.Visible = True
Calendar.SetFocus
' Set to today if Get_in has no value.
Calendar.Value = IIf(IsNull(Get_in), Date, Get_in.Value)
End Sub

This works fine, however i want this to happen on a data access page and the
above code does not work for obviouse reasons, i wondered if anyone could
help me with my problem as it is quite important.

Thanks Dan