Private DB As DataBase
Private Rs As Recordset
 
Private Sub LoadCombo(Byval sDBName As String,oCmb As Compobox)
     Dim SQL As String
 
     Set DB = DBEngine.OpenDataBase(sDBName, False, False)
 
     SQL = "SELECT Author FROM Authors Order by Author" 'Alphabetisch sortieren
 
     Set Rs = DB.OpenRecordset(SQL,DBopenDynaset)
 
      Do While Not Rs.EOF
             oCmb.Additem Rs!Author
             Rs.Movenext
      Loop    
 
      DB.Close
End Sub