试试改成
dr=DataTables("评价汇总").SQLFind("评价人 = '" & user.name & "' And 月份 = '" & month-1 & "'")
dr=DataTables("评价汇总").SQLFind("姓名 = '" & user.name & "' And 月份 = " & month-1 & "")