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