That's right, you said you would be collecting the data FROM the
template/form and parsing/storing later.

If the data is fairly stable, meaning it doesn't get changed that
much, then yes, hard coding the list into the userform would be the
best solution.  You could have a external file that the userform would
use to propagate the combobox, but that's another file to keep up
with.

Linkhttp://tinyurl.com/2k5azj

Listboxes and combo boxes are very similer and can be used
interchangably without much code variation.
Combox boxes drop down and can be editted.  Listboxes are fixed in
size and can't be editted.

So, in the userform_initialize Sub add items like this:

Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "Apples"
Me.ComboBox1.AddItem "Oranges"
Me.ComboBox1.AddItem "Bananas"
Me.ComboBox1.AddItem "Grape"
Me.ComboBox1.AddItem "Pineapple"

End Sub

Private Sub CommandButton1_Click()
ActiveDocument.FormFields("FavoriteFruit").Result = Me.ComboBox1
'Or you can refer to the formfield by number.
ActiveDocument.FormFields(2).Result = Me.ComboBox1
Unload Me
End Sub

If you want to populate the list box with all of the fields from the Access
table, use:

Private Sub UserForm_Initialize()

   Dim db As DAO.Database

   Dim rs As DAO.Recordset

   Dim NoOfRecords As Long

   ' Open the database

   Set db = OpenDatabase("D:\Access\ResidencesXP.mdb")

   ' Retrieve the recordset

   Set rs = db.OpenRecordset("SELECT * FROM Owners")

   ' Determine the number of retrieved records

   With rs

        .MoveLast

        NoOfRecords = .RecordCount

        .MoveFirst

   End With

   ' Set the number of Columns = number of Fields in recordset

   ListBox1.ColumnCount = rs.Fields.Count

   ' Load the ListBox with the retrieved records

   ListBox1.Column = rs.GetRows(NoOfRecords)

   ' Cleanup

   rs.Close

   db.Close

   Set rs = Nothing

   Set db = Nothing

End Sub

If you just want to populate the list box with the data from a particular
field, use:

Private Sub UserForm_Initialize()

'allocate memory for the database object as a whole and for the active
record

Dim myDataBase As Database

Dim myActiveRecord As Recordset

'Open a database

Set myDataBase = OpenDatabase("E:\Access97\Ely\ResidencesXP.mdb")

'Access the first record from a particular table

Set myActiveRecord = myDataBase.OpenRecordset("Owners", dbOpenForwardOnly)

'Loop through all the records in the table until the end-of-file marker is
reached

Do While Not myActiveRecord.EOF

   ListBox1.AddItem myActiveRecord.Fields("Owner")

    'access the next record

   myActiveRecord.MoveNext

Loop

'Then close the database

myActiveRecord.Close

myDataBase.Close

End Sub

You will of course have to modify the path\filename of the database and the
table name from that used in the above and also the field name with the
second example.

If you wish to take Doug's code a bit further,

Dim aa, tt

**** Doug's code ****

'If you have a table with 14 fields but wish to show only 1, then
'limit number of fields from 14 to 1
ComboBox1.ColumnCount = .Fields.Count - 13
' Load the ListBox with the retrieved records
ComboBox1.Column = .GetRows(NoOfRecords)
' Cleanup
   rs.Close
   db.Close

'set 1 column, width 4.6 inches
   tt = "4.6 in"
   aa = "4.6 in"
   ComboBox1.ColumnWidths = tt
   ComboBox1.ListWidth = aa

Cheers,
Al