Hi Steven,

Do you have a requery in the code for you listbox? I was able to duplicate the problem if I ommited the requery.

mcF2Val=thisform.text1.value
ThisForm.List1.RowSource = "Select table1.field1 From table1 Where field2=mcF2Val InTo Cursor mycursor"
thisform.list1.requery()
thisform.refresh

Bill

>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.