Помогите еще раз пожалуйста, туплю на простом SQl — запрсе.
Запрос к базе Access.
При выполнении функции GET_MAX_RECORD (см.ниже), возникает ошибка.При пошпговом исполнении курсор нормально проходит сам SQL — запрос, заходит в цикл While, а уже там ругается на RS1: "Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру".

Если выполнить простой запрос Set rs1 = cn1.Execute("select sys_object from OBJECT where Life='True'") — то все нормально.

Здесь проблема в агрегирующей функции MAX.
Подскажите в чем проблема.


Function GET_MAX_RECORD()
GET_MAX_RECORD = 0
Set rs1 = cn1.Execute("select max(sys_object) from OBJECT where Life='True'")
While Not rs1.EOF
GET_MAX_RECORD = rs1.Fields("SYS_OBJECT")
rs1.MoveNext
Wend
End Function