.LoadFilter = "[评价状态] = '待审核'"And " [评价人员] = & _UserName & "'"
改成
.LoadFilter = "[评价状态] = '待审核' And [评价人员] = '" & _UserName & "'"