select 0 create cursor curList (nVal I, cDescr C(15)) insert into curList values (1,"good") insert into curList values (2, "bad") insert into curList values (3, "undefined") thisform.ListBox1.CountrolSource = "MyTable.Myfield" thisform.ListBox1.RowSource = "curList"i read U'r code