Передача данных из Access в Excel

[Syn-McJ]

Задание следующее: реализовать доступ к базе данных через форму в Excel с помощью технологий DAO и ADO.
Содержание формы: поле ввода пути к базе данных, список имен таблиц в базе, список имен полей в таблице, кнопка приема данных из выбранного поля.
Действие: пользователь выбирает нужное поле в нужной таблице нужной базы данных и выводит содержимое этого поля на лист Excel.

С DAO я успешно справился, код следующий:

Dim DB As Database
Dim Tabl As TableDef
Dim Pole As Field
Dim i As Integer
Dim Zap As Recordset

Private Sub CB1_Click()
CD1.Filter = "Базы данных (.mdb)|*mdb"
CD1.ShowOpen
TB1.Text = CD1.Filename
Set DB = OpenDatabase(TB1.Text)
For Each Tabl In DB.TableDefs
LB1.AddItem Tabl.Name
Next
End Sub

Private Sub lb1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For Each Pole In DB.TableDefs(LB1.Text).Fields
LB2.AddItem Pole.Name
Next
End Sub

Private Sub LB2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set Zap = DB.OpenRecordset(LB1.Text, dbOpenTable)
i = 1
While Not Zap.EOF
Cells(i, 1) = Zap(LB2.Text)
i = i + 1
Zap.MoveNext
Wend
End Sub

С ADO дошел до определенного момента и застрял (в используемой методичке, к сожалению, не всё понятно):

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim pl As ADOX.Column
Dim rst As ADODB.Recordset
Dim i As Integer


Private Sub CB1_Click()
CD1.Filter = "Базы данных (.mdb)|*mdb"
CD1.ShowOpen
TB1.Text = CD1.Filename

Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & CStr(TB1.Text)
For Each tbl In cat.Tables
LB1.AddItem tbl.Name
Next

End Sub

Private Sub lb1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For Each pl In cat.Tables(LB1.Text).Columns
LB2.AddItem pl.Name
Next
End Sub

Private Sub LB2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Таким образом, нужно реализовать последнюю функцию - вывод записей из выбранного поля на лист. Помогите, кто чем может, пожалуйста)

[Syn-McJ]

Вопрос решен.