Can't remember exactly, you need to use ADO's field object, the code goes something like this:
open connection to DB.
open the recordset (lets call it RSRecordset) with a SELECT * FROM tablename.
dim fldField as adodb.field
for each fldfield in rsrecordset
combobox.additem fldfield.name
next