Самое первое, что приходит в голову -- создать такой же список (назовем его lst_Copy), только присоединенный столбец в нем указать 2-й, и выбирать в исходном списке выбранный элемент в копии; исходный же список сделать невидимым. Предположим, твой исходный список называется lst_My. Для lst_Copy пишем такой обработчик события "После обновления":
Код:
Private Sub lst_Copy_AfterUpdate()
If Not IsNull(lst_Copy.Column(0)) Then
lst_My.Value = lst_Copy.Column(0) ' Выбираем в исходном
' списке тот же элемент, который выбран в копии
lst_My_AfterUpdate ' Если в исходном списке нет такого события,
' то эта строчка не нужна
End If
End Sub