Как правильно пользоваться свойством datasource комбобокса? - VB

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

Подскажите как правильно пользоваться свойством datasource комбобокса Нужно чтобы комбо автоматически заполнялся строками из внешней базы

Решение задачи: «Как правильно пользоваться свойством datasource комбобокса?»

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

                            Dim db As Database
Dim ws As Workspace
Dim rst As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase('PathToYourDB') 
Set rst = db.OpenRecordset('YourTable', dbOpenDynaset)
 
Do Until rst.EOF
  
 List1.AddItem rst!YourFieldName
 rst.MoveNext
Loop
    rst.Close
    db.Close
                        