VBA : Ajouter un itemdata dans une liste (boucle qui lit un recordset)

Salut a tous !
Voila mon probleme :
Je suis en VBA. J'ai un recordset qui rempli une liste au moyen d'une boucle. J'aimerais egalement ajouter a chaque fois un itemdata a chaque ligne , mais je ne trouve pas comment faire...

Je fais:
lst_Intervenant.additem(RS1.fields"Nom_Intervenant").value  
lst_intervenant.itemdata(il faut renseigner l'index...)= RS1.Fields("ID_Intervenant")

RS1 est mon recordset: je veux ajouter avec chaque ligne Nom_Intervenant, son ID en Itemdata pour le recuperer ensuite...Je ne sais pas comment faire.

Merci d'avance !!!

Je pense que c'est ça que tu veux:

lst_Intervenant.AddItem (RS1.Fields("Nom_Intervenant").Value)
lst_Intervenant.ItemData(lst_Intervenant.NewIndex) = RS1.Fields("ID_Intervenant")

Chaque fois que tu ajoutes un item (le nom de la personne), tu renseignes le tableau ItemData avec l'ID de la personne. Ensuite tu récupère cet ID pour une prochaine fonction...

Alors, merci. C'est bien ce que je fais en VB, mais en VBA, il n'y a pas de propriete "NewIndex", d'ou mon desarroi...Je nepeux renseigner l'index de la ligne nouvellement créée, a cause du manque de cette propriété, et j'ai beau chercher, je ne trouve rien d'equivalent...C'est etonnant.