老问题了：VB代码控制Excel某一列的格式

Private Sub Command3_Click()                        '''''导出至Excel
'如果EXCEL文件已经打开,需要先关闭它.
Dim lpClassName As String
Dim lpCaption As String
Dim Handle As LonglpClassName = "XLMAIN"
lpCaption = "Microsoft Excel - MyExcel.xls"
Handle = FindWindow(lpClassName$, lpCaption$)If Handle <> 0 Then
MsgBox "请先关闭EXCEL文件!", vbOKOnly + vbInformation, "不能对已经打开的文件进行写操作!"
Exit Sub
End If'检查EXCEL文件是否存在 , 如果存在则删除
If Dir(App.Path & "\MyExcel.xls") <> "" Then Kill App.Path & "\MyExcel.xls"'进行数据转换
Dim dbs As Database
'打开数据库
Set dbs = OpenDatabase(App.Path & "\粮情检测与管理.mdb")
'把数据导入EXCEL
findDate = Format(CDate(Combo1.Text & "-" & Combo2.Text & "-" & Combo3.Text), "yyyy-mm-dd")
DTPicker1.Value = findDatedbs.Execute "SELECT *   INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] FROM " & Combo4 & "仓温度表 where 日期=#" & DTPicker1.Value & "#"
  '关闭数据库对象
dbs.Close
'释放数据库对象
Set dbs = Nothing
End Sub
这样可是实现把需要的数据存入Excel中，可是日期列显示######，时间列显示1900-1-0 22:23:10的格式，请问高手如何让日期列直接显示日期，时间列把1900-1-0去掉