I am using VFP 6 SP3. What are you using?

>Hmm... Mine has been working fine and I haven't been doing that.
>This is the code in the init.
>
>

DoDefault()
>
>select abbrev from states order by 1 into array This.aList
>
>local lnResult
>lnResult = 1
>if !empty( This.ControlSource )
>	lnResult = ascan( This.aList, eval( This.ControlSource ) )
>endif
>
>if lnResult = 0
>	local lnLen
>	lnLen = alen( This.aList, 1 ) + 1
>	dimension This.aList[ lnLen, 1 ]
>	This.aList[ lnlen ] = eval( This.ControlSource )
>	asort( This.aList )
>endif
>