Para que se actualice a la fech actual???
en el evento load del formulario:
me.NombreControlcalendario=date()
Lo de que sigue con la fecha que le pusite, supongo sera por que el control tiene algun origen de control. Compruebalo.
Para lo de la alarma, prueba este ejemplo.
AvisosAlarma
No esta actualizado, asiq ue tendrasq ue añadir o modificar algunos registros paraq ue funcione.
Un saludo