добрый всем знатокам.

прошу подсказать в чем может быть проблема
есть форма, на ней есть combobox. Заполнен 12-ю значениями. При этом выбраны галочками в разных записях разное кол-во значений. В данном случае - языков.
Прописал цикл на событие AfterUpdate

Private Sub proсРасчетГрафКолво()
Dim varКолвоЯзыков As Integer, I As Long

For I = 0 To [cmbЯзыки].ListCount - 1
If [cmbЯзыки].Selected(I) = True Then
varКолвоЯзыков = varКолвоЯзыков + 1
End If
Next I

[fldКолвоЯзыков].Value = varКолвоЯзыков

End Sub

Работает как надо, после выбора галочками нужных языков и нажатия ОК на combobox, в зеленой графе указывается подсчитанное кол-во языков.
Требуется чтобы при смене записей обновлялось поле "Кол-во языков", т.к. его значение нигде не хранится, а просто выводится для информации. Прикручиваю тот же код на Form_Current - не работает. Смотрю по отладчику, строка [cmbЯзыки].Selected(I) на каждой записи цикла дает значение НОЛЬ, соответственно, в ячейке отображается общее кол-во НОЛЬ. В чем может быть проблема? как подправить чтобы работало на событии Form_Current.

Заранее спасибо за помощь

http://www.sql.ru/forum/1304524/podschet-vybrannyh-v-combobox