试试sqlFind之前,先save,如
DataTables("主卡余额汇总流水").Save
dr1 = DataTables("主卡余额汇总流水").find("[_sortkey] < " & mr("_sortkey") & " And [系统主卡编号] = '" & mr("系统主卡编号") & "'","[_sortkey] desc")