主题：请问：下列代码导出数据为什么数据库中的表为空？

请问：下列代码导出数据为什么数据库中的表为空，无记录，只是表结构？

Dim ex As New Exporter
ex.SourceTableName = "坯布信息" '指定导出表
ex.filepath = "C:\毛织生产管理系统\Reports\坯布.mdb" '指定目标文件
ex.Filter = "日期 = #" & Date.Today & "#" 
If FileSys.FileExists(ex.FilePath) Then '如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) '则删除之
End If
ex.Export()

 其中：ex.Filter = "日期 = #" & Date.Today & "#"  ，时间为2012-11-10形式或 设置成2012-11-10 00:00:00的结构都不行

而下列代码就能导出数据，这是为什么？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "坯布信息" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If

问题出在列属性设置成date就可以，即使出现00:00:00也能导出，设置成DateLongTime就不行，就倒不出，00:00:00变成具体时间了.

列属性设置把date改成DateLongTime后，如何写代码？

谢谢，用您写的代码就可以了。再次谢谢

ex.Filter = "日期 = #" & Date.Today & "#" 

换成

ex.Filter = "日期 >= #" & date.Today & "# And 日期 < #" & date.Today.AddDays(1) & "#"