VB+Access系統問題解答,该怎么处理

VB+Access系統問題解答
問題：1.DTPicker控件設置為空；

'窗体截入时DTPicker1不显示时间   
  Private   Sub   Form_Load()   
          DTPicker1.Format   =   dtpCustom   
          DTPicker1.CustomFormat   =   "   "   
  End   Sub   
    
  '用户选择时DTPicker1显示时间   
  Private   Sub   DTPicker1_Change()   
          DTPicker1.Format   =   dtpLongDate   
  End   Sub   
    
  '双击清除DTPicker1中显示的时间   
  Private   Sub   DTPicker1_DblClick()   
          DTPicker1.Format   =   dtpCustom   
          DTPicker1.CustomFormat   =   "   "   
  End   Sub   

 Private   Sub   Form_Load()   
          DTPicker1.Value =Format(now, "yyyy-MM-dd HH:mm:ss")
  End   Sub