Sandy,
for this case usually I change the cbo.rowsourcetype to 0-none and on Init Event put :

WITH THIS

Select (fieldname) to array transfer

mwid=0
FOR i=1 TO _TALLY
FOR j=1 TO ALEN('transfer',2)-1
.ADDLISTITEM(transfer(i,j),i,j)
.COLUMNCOUNT=ALEN('transfer',2)
ENDFOR
IF mwid on which column of the array you use to
display values
mwid=LEN(ALLT(transfer(i,2))
ENDIF
ENDFOR
RELEASE transfer
.WIDTH=mwid*8 &&&(If You use all Upper Case Character You should put mwid*9)
ENDWITH


Hope this can help

Senna Dwipayana
Being good is better
Being better is a bless