Ajouter dans une liste les infos d'une table

Bonjours,
Cette fois-ci,
il sagit d'ajouter dans une liste 'LISTE666' qui est dans un
formulaire 'FRM666'.

Je li mes infos de la maniere suivante:

Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Projets]"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

maintenant, je doit prendre le non du projet, par
rs![NomProjet]

et l'insere dans ma LISTE666, j'imagine pas un ADDITEM, ou quelque fonction du genre, mais je ne trouve pas comment,

Merci a ceux qui peuvent m'aider

while not rs.eof
liste666.additem rs![nom projet]
rs.movenext
wend

a moins que tu utilise des listviews
for each tempclient in collectionclient
Set Item = lvRecherche.ListItems.Add()
Item.text = tempclient.IdClient
Item.SubItems(1) = tempclient.nom
Item.SubItems(2) = tempclient.prenom
Item.SubItems(3) = tempclient.Ville.NomVille
next

voila

PS: ta question n'est pas tres claire :-)

-------------------------------
Réponse au message :
-------------------------------

> Bonjours,
> Cette fois-ci,
> il sagit d'ajouter dans une liste 'LISTE666' qui est dans un
> formulaire 'FRM666'.
>
> Je li mes infos de la maniere suivante:
>
> Set con = Application.CurrentProject.Connection
> stSql = "SELECT * FROM [Projets]"
> Set rs = CreateObject("ADODB.Recordset")
> rs.Open stSql, con, 1 ' 1 = adOpenKeyset
>
> maintenant, je doit prendre le non du projet, par
> rs![NomProjet]
>
> et l'insere dans ma LISTE666, j'imagine pas un ADDITEM, ou quelque fonction du genre, mais je ne trouve pas comment,
>
> Merci a ceux qui peuvent m'aider