数据库用的是sql2008, 加入加载条件后报select 错误,[发送日期] > #" & StartDate & "# 是不是不因该用#符号?
Dim StartDate As Date = Date.Today().AddDays(-180) '加载最近6个月数据
Dim dzyx As String
dzyx = Tables("邮件平台_Table2").Current("电子邮箱")
Tables("邮件平台_Table1").Fill("Select * From {邮件列队} where [发送日期] > #" & StartDate & "# And [电子邮箱] = '" & dzyx & "'" ,"sqldata" ,True)