Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час

Private Sub IN_EKRAN_CLASS() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset      ' набор записей ' открываем всe классы rst.Open "SELECT CLASS_TBL.* From CLASS_TBL ", GLB_CONNECTION, adOpenKeyset, adLockOptimistic '' Добавляет в список If Not rst.BOF Then rst.MoveFirst     Do While Not rst.EOF                                                               ' заполняем наименованиями список         Me!Combo_CLASS.AddItem rst("NAME_CLASS"), 0    '    наименование         Me!Combo_CLASS.AddItem rst("ID_CLASS"), 1             '  ID         rst.MoveNext     Loop rst.Close Set rst = Nothing 'значение высоты элемента ComboBox SetComboHeight Me!Combo_CLASS, 600 End Sub

Как написать, что бы заполнять две колонки комбобокса, а то заполняется только одна (последовательностью строк)