IF NOT EMPTY(ThisForm.select_file) USE (ThisForm.select_file) AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))&& error at this line ThisForm.combo1.RowSourceType = 5 ThisForm.combo1.RowSource = [ThisForm.my_fields] ThisForm.combo1.Value = ThisForm.my_fields[1] ThisForm.Combo1.Interactivechange() ThisForm.text3.value = JUSTSTEM(ThisForm.select_file) ENDIFthanks,