access2010 日付選択カレンダー（DatePicker）の表示

2007でもいいはずなんだけれども、

Private Sub TextBox01_GotFocus()
    DoCmd.RunCommand acCmdShowDatePicker
End Sub