VB6 Combobox zone de texte ADO

Bonjour,
Comment faire pour remplir un combobox avec la liste des produits dans ma table et dans une zone texte la valeur du tarif corréspondant au produit et qui se trouve dans l'autre colonne de la même table.
Merci

en imaginant la table:
PRODUITS (num, nom, prix)
(par contre c en dao, je caonnais pas ado, mais le schéma est le meme :-) )

Déclarations

dim db as dao.database
dim rq_prod as dao.recordset
dim libelle as string
dim numero as integer
dim rq_num as dao.recordset

Proc au chargement du formulaire
set db = opendatabase ("chemin de la base")
set rq_prod = db.openrecordset ("select * from produits")
if rq_prod.recordcount >0 (si il y a bien des enregistrements)
rq_prod.movefirst (se mettre sur le premier)
do while rq_prod.eof = false (tant que ce n'est pas la fin
des enregistrements)
macombo.additem rq_prod!nom (ajouter dans la combo
le nom du produit qui est pointé en ce moment)
loop (refaire)
else (sinon)
macombo.text = "pas encore de produits enregistrés"
(indiquer qu'il n'y a pas d'enregistrements)
endif (fin si)
fin proc

Proc sur clic sur macombo
libelle = macombo.text (on prend le texte, enfin le produit
qui a été choisi)
set rq_num = db.openrecordset ("select * from produits where nom = '"& libelle &"' ") (requete pour récupérer les données qui lui correspondent)
monlabel.caption = rq_num!prix (prendre le prix du produit et l'afficher dans le label)
finproc

Bien sur il faut que tout tes noms de produits soient differents. :-) Je ne sais pas pour différencier ce genre de choses, c d'ailleur ce que je recherche actuellement aussi.

Voila en esperent que ça va t'aider un peu.

A plus

je souhaite un coup de main
pour mon projet
faire