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