FoxPro/Visual FoxPro - scan

saludos amigos ... porfavor auda con este codigo..
SET ESCAPE on

* coneccion a la db *
lcDSNLess="DRIVER={SQL Server};SERVER=TIPONETSERVER;UID=sa;PWD=;DATABASE=desarrollo;DBQ=tiponetserver"
PUBLIC gnconn
gnconn = SQLSTRINGCONNECT(lcDSNLess,.t.)

* impresion de los campos *
CLEAR
CREATE CURSOR prueba (linea c(200))
SELECT prueba
a=GETFILE('txt')
APPEND FROM &a TYPE sdf
GO 3
DO WHILE NOT EOF()
xlinea=linea
f=SUBSTR(xlinea,1,AT(CHR(9),xlinea,1)-1)
h=SUBSTR(xlinea,AT(CHR(9),xlinea,1)+1,AT(CHR(9),xlinea,2)-AT(CHR(9),xlinea,1)-1)
m.valor=SUBSTR(xlinea,AT(CHR(9),xlinea,2)+1,AT(CHR(9),xlinea,3)-AT(CHR(9),xlinea,2)-1)
gidempresa='001'
gidmaquina='server'
m.idregistro=SYS(2015) + SYS(2007, gidmaquina)
m.variableestacion='001' && temperatura

* lcselect para insertar las tablas a la db *
lcselect="insert registro_metereologico (idempresa,idregistro,fecha,hora,idvariableestacion,valor) values (?gidempresa,?m.idregistro,?f,?h,?m.variableestacion,?m.valor)"
lok=SQLEXEC(gnconn,lcselect)
IF lok=-1
AERROR(la)
MESSAGEBOX(la(1,2))
endif


m.valor=SUBSTR(xlinea,AT(CHR(9),xlinea,3)+1,AT(CHR(9),xlinea,4)-AT(CHR(9),xlinea,3)-1)
gidempresa='001'
gidmaquina='server'
m.idregistro=SYS(2015) + SYS(2007, gidmaquina)
m.variableestacion='002' && humedad
* lcselect para insertar las tablas a la db *
lcselect="insert registro_metereologico (idempresa,idregistro,fecha,hora,idvariableestacion,valor) values (?gidempresa,?m.idregistro,?f,?h,?m.variableestacion,?m.valor)"
lok=SQLEXEC(gnconn,lcselect)
IF lok=-1
AERROR(la)
MESSAGEBOX(la(1,2))
endif


m.valor=SUBSTR(xlinea,AT(CHR(9),xlinea,4)+1,AT(CHR(9),xlinea,5)-AT(CHR(9),xlinea,4)-1)
gidempresa='001'
gidmaquina='server'
m.idregistro=SYS(2015) + SYS(2007, gidmaquina)
m.variableestacion='003' && viento

* lcselect para insertar las tablas a la db *
lcselect="insert registro_metereologico (idempresa,idregistro,fecha,hora,idvariableestacion,valor) values (?gidempresa,?m.idregistro,?f,?h,?m.variableestacion,?m.valor)"
lok=SQLEXEC(gnconn,lcselect)
IF lok=-1
AERROR(la)
MESSAGEBOX(la(1,2))
endif


skip
ENDDO

* desconecta la db *
SQLDISCONNECT(gnconn)

*******
** esto lo puse en un boton para poder abri la db luego leer un archivo .txt y luego imprimo esto en un tabla ... pero solo puedo abrir eñ txt y cuando lo quiere cargar en la tablas no las carga ... pero cuando voy a la db hay si las puedo ver :S .... porfvor si pueden ayudarme ...