sqlCompute("Max(CurrentTable.Cols(ID_ColName).Name)"
改成
sqlCompute("Max(" & CurrentTable.Cols(ID_ColName).Name & ")"