Alimenter Listbox

Bonjour,

J'ai ajouté ce bout de code dans mon formulaire qui comporte une liste déroulante (Modifiable16).
Je souhaite ajouter le nom des champs de ma table Table1 à cette liste. Mais cela n'a pas l'air de fonctionner.

Dim Rs As Recordset
Dim i As Integer
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
For i = 0 To Rs.Fields.Count - 1
MsgBox Rs.Fields(i).Name
Modifiable16.AddItem (i)
Next

Pourriez-vous m'aider svp?