>>IF !EMPTY(this.text) >> FOR i=1 TO this.ListCount >> IF this.List(i)=this.text >> RETURN >> ENDIF >> ENDFOR >> THIS.AddItem (THIS.text) >> cAlias = LEFTC(THIS.controlSource,(ATC(".",THIS.controlSource)-1)) >> cColumn = RIGHTC(THIS.controlSource,(LENC(THIS.controlSource)-ATC(".",THIS.controlSource))) >> THIS.rowSourceType = 3 >> cSQL = "SELECT DISTINCT " + cColumn + " FROM " + cAlias + ; >> " INTO CURSOR c" + THIS.name >> THIS.rowSource = cSQL >>ENDIF >>>>After this fires the combo box is left empty and the new value is not among the listed items. What am I missing ?? This seemed pretty straight forward.