DBLookupCoboBox и 2 поля из базы

Имеется база данных Access, в ней таблица(CodeSpec) с 2 полями - "Название" и "Код"
Как вывести оба поля в список DBLookupCoboBox ?
Пробовал:
DataSource1
ADOQuery1[INDENT] SQL : [/INDENT]DBLookupCoboBox1[INDENT]ListSource : DataSource1
KeyField : Код
ListField : Expr1000 (из выподающего списка)[/INDENT]Приложение запускается, но при нажатии на комбобокс вылетает EOleException с текстом "Поставщик данных или другая служба вернули состояние E_FAIL".
Помогите пожалуйста, заранее благодарен.