люди подскажите что не так

проблема в следующим:
есть запрос который вытаскивает данные
подключаю набор записей к datacombo

Set main.list_gr.RowSource = rs_list_gr
main.list_gr.ListField = "gr_name"

Set main.list_gr.DataSource = rs_list_gr
main.list_gr.DataField = "gr_name"

а дальше внешне все хорошо список как надо
но вот проблемма
когда выбираю поле из списка
и при поможи кнопки пытаюсь вытащить значение

MsgBox rs_list_gr.Fields(1)

идет возврат только той строки что была первой изначально

как сделать так чтобы он нормально выбирал строку наборе записей