FoxPro/Visual FoxPro - Sql server con visual 6

hola
¿se necesita alguna otra instruccion para que funcione visual fox con sql server?
ya que me he dado cuenta al ejecutar la instruccion:

Consulta="select * from TipoCliente "
a=SQLEXEC(MiConexion,Consulta,'MiCursor'), "a" me devuelve un -1 ,es como si perdiera la conexion con la odbc , y la conexion la realizo asi:

Public MiConexion
MiConexion=sqlconnect('Fin700')
IF MiConexion <= 0
MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
* MESSAGEBOX('Conexión realizada', 48, 'Mensaje de conexión SQL')
ENDIF

me funciona correctamente con access pero con sql server no ,revise los permisos y no tengo problemas me faltara ajguna instruccion antes de ejecutar el sqlexe ya que no me devueve nada osea "a" me trae -1

Hola :

tengo este ejemplo que me enviaron espero te sirva.

green='DRIVER={SQL Server};SERVER=GREENSERVER;UId=sa;pwd=s;DATABASE=datagreen'
gcon=SQLSTRINGCONNECT(green)
IF gcon>0
ELSE
=MESSAGEBOX("PROBLEMAS CON LA CONEXION",0+48+0)
ENDIF

Espero que esto sea de utilidad, con estas instrucciones puedes hacer conexiones desde formas o reportes de fox a sql.

cCadena = 'Execute spr_alfabetico '+alltrim(str(mConsecutivo))+','+alltrim(str(mvalor))+','+ALLTRIM(STR(P_TIPO_PLAZA ))
Conecta = SQLCONNECT('SAPPN')
=SQLSETPROP(Conecta, 'Transactions',1)
=SQLEXEC(Conecta ,cCadena,"detalle")
=SQLCANCEL(Conecta )
=SQLDISCONNECT(Conecta )

y la forma de consultar por una tabla determinada es
Consulta=\"select * from TipoCliente \"
a=SQLEXEC(MiConexion,Consulta,\'MiCursor\')
no perdere \"como la conexion a la bd\"