Вывод из access в combo - VB

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

как сделать чтобы записи из одного столбца выводились в комбо бокс? так же с новыми записями - чтобы добавлялись туда же

Решение задачи: «Вывод из access в combo»

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

                            Option Explicit
Dim DB As adodb.Connection
Dim Emp As adodb.Recordset
Private Sub Form_Load()
    Set DB = New adodb.Connection
    DB.CursorLocation = adUseClient
    DB.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;" & _
    "Data Source=" & App.Path & "\DB.MDB"
    DB.Open
    Set Emp = DB.Execute("SELECT * FROM tblEmployees")
    Set dcbData.DataSource = Emp
    Set dcbData.RowSource = Emp
    dcbData.DataField = "ФИО"
    dcbData.ListField = "ФИО"
End Sub
                        