Having a problem filling a combobox, this is what I'm doing:

ln_key = 1

SELECT a_acadr
GOTO top
DO WHILE !EOF()

thisform.combo1.AddListItem(ALLTRIM(a_acadr.cshipno),ln_key,ln_key)
ln_key = ln_key + 1

skip
ENDDO

I thought this should work fine, I'm not filling it with much data, but it seems to get the first record and all the rest are blank? Am I having a brain fart? TIA!!!