column names to list box

How can i loop through all column names in a table and display the name in list box or combo box

Code:

---


for i = 0 to rs.Fields.Count -1

  cmbCombo.AddItem rs.Fields(i).Name

next i

---

thanks