FoxPro/Visual FoxPro - Ayuda con la fonción SEEK

Hola a todos, hace dias no podia usar la función SEEK, luego creo que encontre el modo de utilizarla pero no se si lo estoy haciendo bien. Bueno despues que aprendí a usar (eso creo) la funcion y me funciono correctamente, quiero saber como anidar o agregar los datos encontrados a una MATRIZ para usarla en un CUADRO COMBINADO (COMBO) o a un CUADRO DE LISTA (listBox), el ejemplo que estoy realizando es este. Espero me ayuden.

USE DPASS INDEX NOMLIST
SET EXACT OFF
NOMM1=Thisform.Text1.Value
nomm=ALLTRIM(NOMM1)
COUNT FOR NOMBRE=NOMM TO nomCount
SEEK NOMM ORDER NOMLIST IN DPASS
IF FOUND( )
DIMENSION listadenombres(nomCount,2)
COPY TO ARRAY LISTADENOMBRES FIELDS NOMBRE FOR nombre = NOMM
thisform.list1.RowSourceType= 5
thisform.list1.RowSource='listadenombres'
thisform.list1.ControlSource=nombre
*DISPLAY FIELDS NOMBRE, JORNADA FOR NOMBRE=NOMM OFF
ENDIF

gracias desde ya

Prueba asi


USE DPASS INDEX NOMLIST <<== aqui puedes usar un indice compuesto
INDEX ON DPASS ORDER NOMLIST TAG NOMLIST <<== asi lo creas
USE DPASS ORDER 1 <<== asi quedaria

NOMM1=Thisform.Text1.Value
nomm=ALLTRIM(NOMM1)

=SEEK (NOMM,"DPASS",1)

IF FOUND( )
SELECT NOMBRE FROM DPASS WHERE nombre = NOMM INTO CURSOR mIcURSOR
thisform.Combo1.RowSourceType= 3
thisform.list1.RowSource='micursor"'

ENDIF


Suerte