проалиась выбираемое поле
select max(sys_object) AS max_sys_object from OBJECT where Life='True'
и
GET_MAX_RECORD = rs1.Fields("max_sys_object")


или если выбираешь единственное поле
GET_MAX_RECORD = rs1.Fields(0)