Tengo visual foxpro 9.0 y estoy intentado cargar un combo con este y me dice combo desconocido...

estoy usando este codigo

select articulo from lista into cursor rta
select lista
go top
thisform.combo1.Value = lista.articulo
do while !eof()
thisform.combo1.AddItem (lista.articulo)
skip
enddo

Alguien me podría ayudar, Gracias de antemano