Remplir Combo avec table

Je cherche à remplir une combobox à l'aide d'une table Access (Comme c'étais facile sous vb6 mais c'est le bon vieux temps) . Merci de votre aide

Je suppose que tu veux le faire avec VB.Net si tu parles du bon temps, Ce que je fais c est que j'utilise un DataReader, qui est beaucoup plus rapide que le DataAdapter. et tu fais une boucle, cest ce que j'utilise ;)

A+

'On remplit la combo Fournisseur avec le nom du fournisseur
Set rsfournisseur = New ADODB.Recordset
rsfournisseur.Open "Fournisseur", cn, 1, 2
Do While Not rsfournisseur.EOF
cmbfournisseur.AddItem rsfournisseur!societe
rsfournisseur.MoveNext
Loop
rsfournisseur.Close
'**********************************************************
'On remplit la combo Catégorie avec le libéllé
Set rs = New ADODB.Recordset
rs.Open "Catégorie", cn, 1, 2
Do While Not rs.EOF
cmbcategorie.AddItem rs!libcategorie
rs.MoveNext
Loop
rs.Close