FoxPro/Visual FoxPro - Consulta

Hola a todos tengo una pregunta, tengo una conexion odbc y kiero hacer una consulta pero me marca errrores alguien me podria ayuidar el codigo es el sig:

CLEAR
CLOSE TABLES ALL
LOCAL lcServer, SERVIDORATK ;
lcCatalog, atk_pba;
loConnection, cn;
loRecordSet, rs;
loCursorAdapter, ca;

** Creamos la cadena de conexión
TEXT TO lcConnString NOSHOW TEXTMERGE PRETEXT 8
Provider=SQLOLEDB.1;Integrated Security=SSPI;Network Library=DBMSSOCN;
Persist Security Info=False;Initial Catalog=<<lcCatalog>>Data Source=<<lcServer>>
ENDTEXT

**TRY
** Creamos y abrimos la conexión ADO
loConnection = CREATEOBJECT("ADODB.Connection")
loConnection.Open(lcConnString)
** Ejecutamos la consulta
lcQuery = "SELECT * FROM apcapp WHERE nchkamt like '335%'"
loRecordSet = loConnection.Execute(lcQuery)

** Creamos el objeto Cursor Adapter
loCursorAdapter = CREATEOBJECT("CursorAdapter")
** Asignamos el nombre del cursor
loCursorAdapter.Alias="cPredios"
** Asignamos el tipo de datos que recibirá
loCursorAdapter.DataSourceType="ADO"
** Convertimos el RecordSet a un cursor de VFP
?loCursorAdapter.CursorFill(,,,loRecordSet)
** Desincorporamos el cursor, de el objeto CursorAdapter
?loCursorAdapter.CursorDetach()
browse
**CATCH TO loError
MESSAGEBOX(loError.Message)
**ENDTRY

de antemano gracias!!