楼主:如果你用的是SQL SERVER数据源就用下面的
Tables("会员表").Filter = "[入会时间] >= '" & Date.Today.AddDays(-60) & "' And [入会时间] <= '" & Date.Today & "'"
如是用的ACCESS,则改为
Tables("会员表").Filter = "[入会时间] >= #" & Date.Today.AddDays(-60) & "# And [入会时间] <= #" & Date.Today & "#"