In the combobox .Valid Event for picking a Job Position or entering a new one IF THIS.ListIndex=0 AND ALLTRIM(THIS.DisplayValue)#"" && The value isn't in the list and isn't blank ?? CHR(7) mnadd=MESSAGEBOX("Do you wish to add this position type?",4+32+256,; ALLTRIM(THIS.DisplayValue)+" not found") && Ask the user to add in case of typo's IF mnadd=6 INSERT INTO Position (Position) ; VALUES (THIS.DisplayValue) && Insert into source THIS.Requery THISFORM.rtgPageFrame1.Page1.Refresh ELSE THIS.DisplayValue="" THIS.Value="" ENDIF ENDIFHTH