楼主说的是这个?
Tables("窗口1_Table1").DataTable.LoadFilter = "[日期] = #" & Date.Today & "#"Tables("窗口1_Table1").DataTable.Load