FoxPro/Visual FoxPro - Indexar cursor..??

Hola buenas dias.. tengan ustedes...
quisiera me dieran una idea de como hacer lo siguiente:
Estoy tratando de Migrar mis DBF a Mysql..y estoy moviendo toda la aplicación pero me he topado con la INDICES de archivos... ya que las busquedas las realizo con el SEEK...

¿¿¿ SE PODRA INDEXAR UN CURSOR..?? ... o como se podrá indexar...??, ya que solo requiero mover cierta parte de el inicio de mis forms....

antes tenia asi en el init del form... despues de haber abierto la tablas con una rutina en un archivo de funciones...

local xcampo
select mytabla
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

****************************************************
Ahora lo tengo así.
local xCampo
cBusca='Select * from mytabla','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla
Locate for Alltr(xCampo)=Alltr(Campox)
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif
********************************************
pero no se podrá hacer así....
local xCampo
cBusca='Select * from mytabla','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla &&&Este Es un cursor que deseo indexar...
set Order to xCampo &&Aqui quiero cambiar... ya que no existe esto en cursor...
Locate for Alltr(xCampo)=Alltr(Campox)
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif
********************************************
o Emplear Algo así...
cBusca='Select * from mytabla order by xcampo','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla

pero aqui deseo serguir usando el SEEK
*****************************************
Muchas Gracias Amigos
Emplear

antes lo tenias asi
---------------------------------
local xcampo
select mytabla
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

ahora aplicalo asi:
---------------------------------
local xcampo
select mytabla
index on campox tag campox && crea un indice en el cursor
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

listo con esto corriges tu error