REMPLIR UNE COMBO BOX AVEC UNE TABLE (DAO)

'déclarations
'de la base
dim db as dao.database
'de la requête
dim rq_ent as dao.recordset
'initialisations
'de la base
set db = opendatabase ("chemin de la base")
'de la requête qui selectionne les noms des entités
Set req_ent = db.OpenRecordset("select nom_entité from entite")
'Si des enregistrements correspondent à la requête alors
If req_ent.RecordCount > 0 Then
    'se placer sur le premier enregistrement
    req_ent.MoveFirst
    'Tant que ce n'est pas la fin des enregistrements
    Do While req_ent.EOF = False
        'ajouter dans la combo l'enregistrement en cours
        combo_entite.AddItem req_ent!nom_entité
        'passer à l'enregistrement suivant
        req_ent.MoveNext
        'refaire
    Loop
'sinon
Else
    'mettre dans la zone de texte un message qui signale qu'il n'y a pas         
     d'enregistrements
    combo_entite.Text = "pas encore de rubriques enregistrées"
'fin si
End If