datagrid表数据导出到excel问题

  程序代码如下
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True
  Set xlBook = xlApp.Workbooks.Add
  t = Format(Now, "yyyymmddhhmmss")
  Set xlSheet = xlBook.Worksheets(1)
  xlApp.Visible = False
  xlSheet.Cells.CopyFromRecordset Select1.Adodc1.Recordset  
  xlBook.SaveAs DB1 & "\" & DataGrid1.Caption & t & ".xls"
  不知为什么导出到excel后,原来在datagrid1正常显示的数据,在excel中数据格式都变成日期型了,需要在excel中重新修改单元格属性为数值型才和datagrid1中显示的表格和数据一致.
  请高手不吝赐教,万分感谢!