Импорт внешних данных из Access

[Caside]

Мне нужно заполнить листбокс формы данными из базы данных Access. Создал макрос в автоматическом режиме:

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=База данных MS Access;DBQ=C:\DOCUMENTS AND SETTINGS\alex\Рабочий стол\mybd.mdb;DefaultDir=C:\DOCUMENTS AND SETTINGS\alex\Ра" _
        ), Array( _
        "бочий стол;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
        Destination:=Range("A14"))
        .CommandText = Array( _
        "SELECT книги.название" & Chr(13) & "" & Chr(10) & "FROM `C:\DOCUMENTS AND SETTINGS\alex\Рабочий стол\mybd`.книги книги" _
        )
        .Name = "Запрос из База данных MS Access"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Но в нём данные можно поместить только на лист, а мне надо сразу в листбокс.

[doober]

Не забудьте добавить ссылку на библиотеку ADO

Sub Go_Junior()
Const sCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
ListBox1.Clear
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String, sSql As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
    sCon = sCn1 + "C:\DOCUMENTS AND SETTINGS\alex\Рабочий стол\mybd.mdb"
    cn.Open sCon
    
    If Not cn.State = 1 Then Exit Sub

 sSql = "SELECT книги.название " + _
    "FROM книги ;"
    rs.Open sSql, cn, adOpenStatic, adLockReadOnly
      ListBox1.Column() = rs.GetRows
rs.Close:   cn.Close
Set cn = Nothing:   Set rs = Nothing
End Sub

[Caside]

Выдаёт ошибку
user-defined type not found на Dim cn As ADODB.Connection, rs As ADODB.Recordset

[doober]

Не забудьте добавить ссылку на библиотеку ADO

[Caside]

Я изначально подключил, и при запуске появляется эта ошибка.

[doober]

в имени файла все выразил

[Caside]

А как сделать выборку из базы, например у меня есть база заказчик с столбцами название, адрес, телефон. Есть листбокс, в котором забиты названия заказчиков. Нужно заполнить ячейки по нажатию кнопки и занести адрес в A1 например, телефон в A2 того заказчика, название которого выбрано в листбоксе. В строку запроса пишу SELECT заказчики.адрес FROM заказчики WHERE заказчики.название=ListBox1.text. При этом возникает ошибка.

[doober]

заказчики.название Like "'" & ListBox1.text & "'"

заказчики.название = "'" & ListBox1.text & "'"