>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) >ENDIF >>thanks,