>>>>lname = Thisform.TxtLName.Value >>>>fname = This.Value >>>>SELECT officer >>>>SET ORDER TO FULLNAME && PADR(UPPER(LASTNAME),25)+PADR(UPPER(FIRSTNAME),25) >>>>SEEK padr(Upper(lname),25) + padr(Upper(fname),25) >>>>IF FOUND() >>>> Select Lastname, Firstname, DOB, empcnty From Officer ; >>>> WHERE padr(Upper(LASTNAME),25)+ padr(Upper(FIRSTNAME),25) = padr(Upper(lname),25) + padr(Upper(fname),25) ; >>>> INTO Cursor Countit nofilter &&This returns 2 rows >>>> If Reccount() = 1 >>>> Thisform.editmode = "Edit" >>>> Thisform.fillin >>>> Else >>>> Thisform.lblSelectPerson.Visible = .T. >>>> Thisform.cboSelectPerson.RowSource = '' && added per previous suggestion >>>> With Thisform.cboSelectPerson >>>> .RowSourceType = 6 >>>> .RowSource = "Countit.lastname, firstname, DOB, empcnty" >>>> .ColumnCount = 4 >>>> .ColumnWidths = '150,150,75,150' >>>> .Visible = .T. >>>> .ListIndex = 1 >>>> Endwith >>>> Endif >>>>Endif >>>>>>>>