>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 >>