kontrolelementet Kalender

Jeg har indsat kontrolelementet "Kalender" som jeg bruger til at overfører en dato i en form. Formen virker med:
Private Sub Calendar0_AfterUpdate()
    Me.Dato = Me.Calendar0.Value
End Sub

Mit problem er at jeg gerne ville have kalenderen til automatisk at vise aktuelle dato, den fremkommer altid med samme dato ved start. Jeg har forgæves prøvet med:

Private Sub Form_Open(Cancel As Integer)
Me.Calendar0.Value = Date
End Sub

HJÆLP SØGES...