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

[Гороцкоп]

Умоляю, помогите!
На форме имеется DataCombo1, подключённый к Adodc1 (нужно именно Adodc) и набор из 14-ти TextBox'ов и ComboBox'ов.
Требуется, чтобы, при выборе любой записи из ключевого поля "АДРЕС" в DataCombo1 в TextBox'ах и ComboBox'ах появлялась соответствующая информация из таблицы "База адресов КОНСТРУКТОР" (в пределах записи, но из других столбцов). При запуске, при нажатии на ниспадающий список пишет: 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


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

[Хакер]

Код кто будет оформлять в теги [code]...[/code]?

[Гороцкоп]

На форме имеется DataCombo1, подключённый к Adodc1 (нужно именно Adodc) и набор из 14-ти TextBox'ов и ComboBox'ов.
Требуется, чтобы, при выборе любой записи из ключевого поля "АДРЕС" в DataCombo1 в TextBox'ах и ComboBox'ах появлялась соответствующая информация из таблицы "База адресов КОНСТРУКТОР" (в пределах записи, но из других столбцов). При запуске, при нажатии на ниспадающий список пишет: 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


[Хакер]

Нет, надо внести правку в первый пост, и я верну тему в исходный вид (без моего поста претензии и лишнего третьего поста).