thisform.text1.Value=GETFILE('dbf') m.t=(thisform.text1.value) ThisForm.select_file=(M.T) IF NOT EMPTY(ThisForm.select_file) USE (m.t) AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file)) ThisForm.combo1.RowSourceType = 5 ThisForm.combo1.RowSource = [ThisForm.my_fields] ThisForm.combo1.Value = ThisForm.my_fields[1] ThisForm.Combo1.Interactivechange() ThisForm.text1.value = (ThisForm.select_file) ThisForm.text1.Visible = .t. ENDIFthanks.