Bill,

The listbox is populated with an sql statement:

witmv = AllTrim(ThisForm.Text1.Value)
ThisForm.List1.RowSource = "Select seatno From seat1 Where modelno = witmv InTo Cursor myseatlist Order By seatno"
ThisForm.Grid1.RecordSource = ""
ThisForm.Refresh

This is done in a method of the form.