Problemas con el SQLEXEC()

Estimado amigo de nuevo molestando ahora tengo este problema que al momento que quiero Grabar o Actualizar datos desde el Vfp9 al Sql2000 Server me sale este mensaje de Error: "Se necesita el parámetro de la instrucción SQL para las llamadas SQLEXEC() no preparadas"

Cuando deseo Grabar datos utilizo este código:
Select Tmp_Eos
Go Top
Do While !Eof()
= TABLEUPDATE(.T.)
Xsql4
="Insert Into Age_Eos(Gen_Doc, Cat_Doc, Dni_Doc, Dat_Doc, Ruc_Doc, Cur_Doc, Htr_Doc, Phr_Doc, Imp_Doc, Tot_Doc)
Values('"+ALLTRIM(Thisform.Gen_Doc.Value)+"','"+Tmp_Eos.Cat_Doc+"',;
'"+Tmp_Eos.Dni_Doc+"','"+Tmp_Eos.Dat_Doc+"','"+Tmp_Eos.Ruc_Doc+"','"+Tmp_Eos.Cur_Doc+"',;
'"+Tmp_Eos.Htr_Doc+"','"+Tmp_Eos.Phr_Doc+"','"+ALLTRIM(STR(Tmp_Eos.Imp_Doc,9,2))+"',;
'"+ALLTRIM(STR(Thisform.Tot_Doc.Value,9,2))+"')"
If
Sqlexec(CnxEos,Xsql4)>0
Else
a=Aerror(Mat)
Messagebox(Mat(2),55,'Error al Grabar')
ENDIF
Se le Tmp_Eos
Skip
ENDDO
**********************************
Cuando deseo actualizar datos utilizo este código:
= TABLEUPDATE(.T.)
Xsql3="UPDATE Age_Eos SET Age_Eos.Dni_Doc
='"+Allt(Age_Eos.Dni_Doc)+"',;
Age_Eos.Dat_Doc ='"+Allt(Age_Eos.Dat_Doc)+"'
WHERE Age_Eos.Gen_Doc ='"+Allt(Age_Eos.Gen_Doc)+"'"
=SQLEXEC(CnxAst,Xsql3)
IF
SQLEXEC(CnxAst,Xsql3) > 0
*** Actualizados
con exito
***
Messagebox("Datos actualizados con éxito")
ELSE
IF
AERROR(laError) > 0
Messagebox("Error al actualizar el registro:"+laError[2])
ELSE
Messagebox("Error inesperado!!")
ENDIF
ENDIF
Gracias por su pronta Ayuda