Почему не реагирует DataCombo?

[Гороцкоп]

Помогите, ПОЖАЛУЙСТА, новичку конкретно по теме!
На форме имеется DataCombo1, подключённый к Adodc1 (нужно именно Adodc) и набор из 14-ти TextBox'ов и ComboBox'ов.
Требуется, чтобы, при выборе любой записи из ключевого поля "АДРЕС" в DataCombo1 в TextBox'ах и ComboBox'ах появлялась соответствующая информация из таблицы "База адресов КОНСТРУКТОР" (в пределах записи, но из других столбцов) (База аксесс 2003). При запуске, при нажатии на ниспадающий список пишет: Variable not defined, в коде выделяет первую строчку жёлтым а в четвёртой База_адресов_КОНСТРУКТОР синим. Что не так в коде?

Код: Выделить всё

Private Sub DataCombo1_Click(Area As Integer)

Dim info As String
Dim adr As Variant

adr = База_адресов_КОНСТРУКТОР.Recordset.Bookmark
База_адресов_КОНСТРУКТОР.Recordset.MoveFirst

info = "АДРЕС='" & DataCombo1.SelText & "'"
База_адресов_КОНСТРУКТОР.Recordset.Find info, 0, adSearchForward, adr

End Sub


Что не так в коде и верен ли он?

[alibek]

1) Не нужно создавать тему в разных подфорумах, кросспостинг не приветствуется.
2) О какой среде идет речь? Что такое DataCombo? Если это формы Access, то у него нет в событии аргумента Area As Integer.
3) Для связанных (bind) элементов управления не нужно никакой самодельной навигации. Задаешь источник строк (на основе запроса или таблицы) и привязываешь к полю, являющемуся внешним ключом на результат запроса, все остальное за тебя сделает ADODC.

Здесь закрываю.