importar tablas acces campos de 255 me falla

[jumana]

importar acces , el programa funciona pero los campos de 255 posicoines los pasa a foxpro como memo y los rellena con la palabra memo
el resto de campos si funcionan.






LOCAL lcMyFile, lnConnHandle, lnResult, lcSQLCommand, lnGetData, lcNewName
LOCAL ARRAY laWhatErr(1)

lcMyFile = GETFILE('MDB')
conta=0
*!* No point if no MDB file is selected
IF !EMPTY(lcMyFile)
*!* Use a SQLStringConnect to connect to the MDB file
lnConnHandle = ;
SQLSTRINGCONNECT('DRIVER=MICROSOFT ACCESS DRIVER (*.MDB);DBQ=' + ;
lcMyFile)

IF lnConnHandle > 0
*!* Need to know what tables are contained in the MDB file
lnResult = SQLTABLES(lnConnHandle, 'TABLE')

IF lnResult > 0
*!* Create a new DBC named "MYNEW"
CREATE DATABASE mynew
*!* Select SQLResult and scan through the cursor.
SELECT SQLResult
SCAN
*!* Build a SQL SELECT statement to pass to SQLEXEC()
lcSQLCommand = ;
"SELECT * FROM [" + ALLTRIM(SQLResult.table_name) + "]"

lnGetData = SQLEXEC(lnConnHandle, lcSQLCommand, 'newdata')
IF lnGetData > 0
*!* SQLEXEC() was successful
lcNewName = STRTRAN(ALLTRIM(SQLResult.table_name), " ", "_")
conta=conta+1
fichsal=left(RTRIM(lcnewname),6)
fiche=LTRIM(STR(conta))+RTRIM(fichsal)
SELECT newdata
*!* Copy Table Structure and Data to a DBF file
*!* VFP 3.0 - loses long field names
*!* COPY TO (lcNewName)
*!* ADD TABLE (lcNewName)
*!* VFP 5.0/6.0 - keeps long field names


* COPY TO (fiche) DATABASE myNew
COPY TO (fiche) DATABASE mynew Type FOXPLUS as 850
ENDIF
ENDSCAN
ENDIF
*!* Done Getting Data, so Disconnect
=SQLDISCONNECT(lnConnHandle)
ELSE
*!* The SQLStringConnect failed
=MESSAGEBOX('ODBC Connection Failed', MB_ICONEXCLAMATION, 'ODBC')
*!* Call AERROR()
=AERROR(laWhatErr)
*!* Display the error
DISPLAY MEMORY LIKE laWhatErr
ENDIF
ENDIF


BROWSE FIELDS table_name