连接sql问题，连接成功，程序也能够运行，退出后再连就连不上了，为啥
关于sql数据库配置问题，都做好了，防火墙端口也都是弄好的，连接语柄如下。在同伴电脑上运行，第一次能够完美运行，退出后在运行，连接服务器就失败，如果关机再次运行，还可以成功，问题在哪？求大神指教 ，并且有这样一个问题，运行程序后，退出，在 这个位置，依然显示我主机的名字，所以我觉得，是没断开吧？
连接代码如下：
SQLSETPROP(0,"DispLogin" ,3) &&&& 设置环境为“从不显示 ODBC 登录对话框”
CON=SQLSTRINGCONNECT("driver=sql server;Server=山狼LS,1433;Uid=山狼;pwd=123;database=测试")
IF con<=0
MESSAGEBOX(' 服务器连接失败，请联系管理员！ ',64,' 连接到 SQL Server 上去 ')
ELSE
sqlexec(con,"select * from [user] ","sur")
thisform.list1.RowSource='sur'
SQLDISCONNECT(con)  
endif
退出时代码：
a = MESSAGEBOX("确定退出吗?",33,"信息")
IF A = 1
   CLEAR EVENTS
   CLOSE ALL
   thisform.release
   QUIT
ENDIF

我自己的机子装了sql，运行完全没问题

防火墙关掉也一样，并且，如果是防火墙的问题，第一次连接也应该是失败。我开放了1433端口，防火墙开着也不影响

断开后就没有又连接了，，因为断开就连不上了

报告语柄错误，不是-1，前面的是1

确实是这样，但我的为什么在别的机子上退出后就连不上了呢，

您有联系方式吗？我真的想学会这一点，谢谢你了