A musí to byť nutne MSComCtl2.DTPicker ? Ten totiž niekedy robí "psie kusy".

Dá sa to totiž i cez knižnicu MSCAL.OCX - Microsoft Calendar Control.
Príklad bude fungovať, ak je Office nainštalovaný i s Accessom, dá sa však stiahnuť aj z netu (pozor rôzny pre rôzne verzie Office).

Ako použiť:
ALT+F11 - kód v UserForm1 a Module1.

Userform:

Option Explicit

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End SubModule1

Sub ShowIt()
UserForm1.Show
End SubPalo