Create a list/combo box in which you will put the list of fields.
if your table name is stored in a variable called strTblName, then
Dim fldObject as Field
Dim dbs as Database
Dim strList as String
Set dbs = CurrentDB
strList = ""
For each fldObject in dbs.tabledefs(strTblName).fields
strList = strList & fldObject.Name & ";"
next fldObject
me.cboFieldList.RowSource = strList
dbs.close
set dbs = nothing
ntp