FoxPro/Visual FoxPro - Problema para guardar en MYSQL

SQLEXEC(rc,"Select * from clientes where clientes.codcli = ?thisform.codcli.value", "mccli")

IF RECCOUNT() = 0

TEXT TO lcTExt NOSHOW PRETEXT 15

SQLEXEC(rc,"insert into clientes (codcli,fechan,nombre) VALUES (?thisform.codcli.value,

 ?thisform.fechan.value,

 ?thisform.nombre.value)

ENDTEXT

SQLEXEC(rc,lcText)

 MESSAGEBOX("El registro ha sido guardado","Aviso")

thisform.codcli.SetFocus

RETURN

ENDIF

nHandle = SQLCONN('TuBAseDeDatos','','')

	*- Comprobamos la Conexión

IF nHandle > 0

***** USO DE VARIABLES

        VARESTADO=ALLTRIM(THISFORM.ESTADO.VALUE)

	VARCONTRATO=THISFORM.CONTRATO.VALUE

	VARCONTRAT=ALLTRIM(THISFORM.CONTRAT.VALUE)

	VARUSUARIO=ALLTRIM(THISFORM.NOMBRE.VALUE)

	VARAPELLIDOP=ALLTRIM(THISFORM.APEP.VALUE)

	VARAPELLIDOM=ALLTRIM(THISFORM.APEM.VALUE)

	VARRFC=ALLTRIM(THISFORM.RFC.VALUE)

	VARCALLE=ALLTRIM(THISFORM.CALLE.VALUE)

	VARNUMERO=ALLTRIM(THISFORM.NUMERO.VALUE)

	VARINTERIOR=ALLTRIM(THISFORM.INTERIOR.VALUE)

	VARCOLONIA=ALLTRIM(THISFORM.COLONIA.VALUE)

	VARSECTOR=ALLTRIM(THISFORM.SECTOR.VALUE)

	VARCIUDAD=ALLTRIM(THISFORM.CIUDAD.VALUE)

	VARTELEFONO=ALLTRIM(THISFORM.TEL.VALUE)

	VARPOSTE=ALLTRIM(THISFORM.POSTE.VALUE)

	VAROBSERVA1=ALLTRIM(THISFORM.OBSERV.VALUE)

	VARENTRECALLE=ALLTRIM(THISFORM.ENTRECALLE.VALUE)

	VARTIPOINSTAL=THISFORM.TIPOINST.LISTINDEX

	VARTIPOSERVIC=THISFORM.TIPOSERV.LISTINDEX

	VARCP=ALLTRIM(THISFORM.TEXT1.VALUE)

** GUARDAR INFORMACION DE CLIENTES

				lcCadena=""

				lcCadena = "INSERT INTO clientes ( empresa_id,contrato,usuario,apellidop,apellidom,rfc,calle,"

  				lcCadena = lcCadena + "numero,interior,colonia,sector,ciudad,telefono,fechanaci,correo,poste,observa1,entrecalle,"

   				lcCadena = lcCadena + "tipoinstal,tiposervic,status,cp,contrat,fechaalta,tvadd,conrfc,comenta,fechasuspension,fechainstalacion,fechareconexion,ife,cfe)"

   				lcCadena = lcCadena + " VALUES (" + STR(VAREMPRESA) + ","+ STR(VARCONTRATO)+ ",'"

   				lcCadena = lcCadena + VARUSUARIO + "','" + VARAPELLIDOP+"','" + VARAPELLIDOM + "','" + VARRFC + "','"

   				lcCadena = lcCadena + VARCALLE + "','" + VARNUMERO + "','" + VARINTERIOR + "','" + VARCOLONIA + "','"

   				lcCadena = lcCadena + VARSECTOR + "','" + VARCIUDAD + "','" + VARTELEFONO + "',{"+alltrim(DTOC(varfenac))+"},'" + varcorreo + "','" + VARPOSTE + "','"

   				lcCadena = lcCadena + VAROBSERVA1 + "','"+ VARENTRECALLE + "'," + STR(VARTIPOINSTAL) + "," + STR(VARTIPOSERVIC) + ",'"

   				lcCadena = lcCadena + VARESTADO + "','" + VARCP + "','"+ VARCONTRAT + "',{" + DTOC(DATE()) + "},.f.,.f.,'',{},{},{}, '" + cTargetFileIFE + "','" + cTargetFileCFE + "' )"

				SQLEXEC(nHandle,lcCadena)

******* MENSAJE DE GUARDADO

				MESSAGEBOX("Se guardo la Informacion del Cliente Exitosamente.",48,"Informacion Cliente")

	ELSE    && SI NO SE CONECTA A LA BASE DE DATOS

	   MESSAGEBOX("Error al Conectar",16,"Atención")

	   RETURN

	ENDIF