FoxPro/Visual FoxPro - Detectar conexion

Estimados Amigos

Lo que necesito es saber si una conexion esta activa a no, me explico.
Tengo en mi computadora 2 conexiones una a Internet llamada conexion1 y otra a mi conexion VPN llamada ConexionVPN.
Lo que necesito saber es si mi conexion VPN esta activa para ejecutar un programa en fox que se conecte por medio de esta conexion a un base de datos en sql server y no me aparezca la ventana de Inicio de Sesion para SQL Server. O como evitar que salga esta ventana si no esta activa la conexion VPN.
Espero sus comentarios

Saludos
Pablo

PUBLIC conexion
SQLSETPROP(0,"DispLogin",3)
conexion = SQLSTRINGCONNECT("DRIVER={SQL Server};"+;
"SERVER=MYSERVIDOR;"+;
"uid=sa;"+;
"pwd=MYPASSWORD;"+;
"DATABASE=NOMBREBD;"+;
"WSID="+ SYS(0) +";"+;
"Trusted_Connection=No")

Sqlexec(conexion ,"select * from V_fotos ",'_fotos')
thisform.list1.RowSourcetype=2
thisform.list1.RowSource="_Fotos"

ESA YO USO y jala muy bien

Muchas gracias, lo voy a probar
Saludos
Pablo