Связывание ListBox с базой данных Access - VB

Формулировка задачи:

Здраствуйте! Никак не могу сделать, чтобы во время выполнения программы автоматически заполнялся список данными из базы Access. Пробовал использовать ADOCS, связь устанавливается, а данные не вносятся. Как быть? Конечно можно использовать DataList, но для него отсутствует команда List.

Решение задачи: «Связывание ListBox с базой данных Access»

textual
                            Листинг программы 
                        

                            Option Explicit
Public CON As ADODB.Connection
 
Public Function Соединение() As ADODB.Connection
On Error GoTo bay
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim str As String
str = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & ПолучитьПуть() & ';Jet OLEDB:Database Password=***'
With cn
    .ConnectionString = str
    .CommandTimeout = 30
    .CursorLocation = adUseClient
    .Open
End With
Set Соединение = cn
Set cn = Nothing
Exit Function
bay:
MsgBox Err.Description, vbCritical, Err.Source
End Function
 
Public Sub Отключить(cn As ADODB.Connection)
On Error Resume Next
If Not cn Is Nothing Then
    If cn.State = 1 Then cn.Close
    Set cn = Nothing
End If
End Sub
 
 
Public Sub ПодключитьCON()
On Error Resume Next
If Not CON Is Nothing Then
    If CON.State = 0 Then Set CON = Соединение()
Else
    Set CON = Соединение()
End If
Exit Sub
                        