Hola Esther:
Suponiendo que se trate del Control ActiveX que se inserta en un formulario desde el menú contextual "Herramientas / Más controles", sería algo así:
'Al cargar el Form, el campo Día del calendario entra marcado con el día de HOY y tu campo DIA tambien muestra la fecha de HOY
Private Sub Form_Load()
CtrlActiveX1 = Date
Me.DIA = CtrlActiveX1
End Sub
'Al hacer Click en otro día, tu campo DIA cambia al seleccionado en el calendario
Private Sub CtrlActiveX1_Click()
Me.DIA = CtrlActiveX1
End Sub
Dejo el nombre que Access le asigna al control Calendario al insertarlo en el formulario (CtrlActiveX1) aunque este nombre se puede cambiar por otro que quieras.
Espero que te sirva. Saludos
Enrique