Выбор из ComboBox, подключённого к Adodc1

[Гороцкоп]

На форме есть Adodc1, к нему подключён ComboBox1 и ещё 13 TextBox'ов и ComboBox'ов.
Требуется, чтобы, при выборе любой записи из ключевого поля "АДРЕС" в ComboBox1 в остальных TextBox'ах и ComboBox'ах появлялась соответствующая информация из таблицы "Baza_adresov" (в пределах записи, но из других столбцов). При запуске, при выборе адреса пишет: "Run-time error '91': Object variable or With block variable not set", в коде выделяет жёлтым rs1.Source = "Select УЛИЦА " & " From Baza_adresov Where АДРЕС = '" & adr & "'". Что надо исправить в коде и где надо вставлять код для других TextBox'ов? База аксесс 2003, Microsoft Visual Basic 6.0. К БД всё подключено через свойства Adodc1 и ComboBox.

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

Option Explicit

Dim rs1 As ADODB.Recordset
Dim adr As String

Private Sub Combo1_Click()
adr = Combo1.Text

rs1.Source = "Select УЛИЦА " & " From Baza_adresov Where АДРЕС = '" & adr & "'"

rs1.Open

rs1.MoveFirst

Combo2.Text = rs1.Fields("УЛИЦА")
Do While Not rs1.EOF
Combo2.AddItem rs1.Fields("УЛИЦА")
rs1.MoveNext
Loop
rs1.Close

End Sub

[SergT]

При запуске, при выборе адреса пишет: "Run-time error '91': Object variable or With block variable not set"

Объект не задан
Исправь на Dim rs1 As New ADODB.Recordset

[Хакер]

SergT, не надо плодить ерунду.

[SergT]

Не буду . Это то, что сходу увидел. каюсь, не дочитал до конца...
Вот это , думаю, поможет:
http://support.microsoft.com/kb/168336 (на русском!)