Select MyCursor2 Locate For Left(MyField, Len(AllTrim(MyCursor1.MyField))) = AllTrim(MyCursor1.MyField) ThisForm.Combo2.Value = MyCursor2.MyField ThisForm.Combo2.Refresh