改成
Filter = Filter & "考勤日期 >= #" & curS & "#" & " And 考勤日期 <= #" & curE & "#" & " And 部门 = '" & curB & "'"