I have an SQL Server App written in FoxPro. I use views to talk to the server. Sometimes clients are accessing the database via a VPN and the VPN connection is not reliable. If they can't reconnect, how can we gracefully exit?

I have the following code:

ON ERROR Do Nothing

* Get Rid of Stupid dialog boxes.

SQLSETPROP(0,'DispWarnings',.F.)
SQLSETPROP(0,'DispLogin',3)

CLOSE DATABASES

On the above line I get a stupid error message that can only be cleared by ENDING PROCESS on the Application.

Here is the message:

Connectivity error ODBC SQL Server
SQL Server does not exist or access denied.

Is there a way to gracefully exit when we can't reestablish the network connection?

Bob