Try using this....
Place a list box onto your form, go to its properties, on the DATA tab, Select <Value List> from the <Row Source Type>.
I assume ur listbox name is list1, so you can add new items to the list using this techniqu...
list1.rowsource=list1.rowsource & NewText & ";"
NewText...