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)