可能设置了筛选条件吧?
DataTables("收购").LoadFilter = "[日期] = #" & vars("adate") & "# "DataTables("收购").Load()
Tables("收购").Filter = ""