nom des champs sous ACCESS

Salut à tous !!! j'ouvre une BDD ACCESS avec opendatabase, je nomme un enregistrement avec un recordset, et je voudrais savoir comment récupérer les nom des champs afin de les mettre dans une listebox. Comment faire SVP !!! Grand Merci !!!

set Db=opendatabase(...)
combo1.Clear

for i=0 to Db.TableDefs.Fields("MaTable").fields.Count-1
      combo1.additem Db.TableDefs.Fields("MaTable").fields(i).Name
next i

Hassen TUNISIE

Salut, petite correction hassen :

For i = 0 To db.TableDefs("MaTable").Fields.Count - 1
      combo1.additem db.TableDefs("MaTable").Fields(i).Name
Next i

et autre proposition :

Dim fld As Field

For Each fld In db.TableDefs("MaTable").Fields
  combo1.additem fld.Name
Next


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Enfin, si c'est une listbox, remplacer combo1 par le nom de ta Listbox.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

merci CanisLupus pour la correction de ma faute de frappe

Hassen TUNISIE