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

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

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