连接服务器中的sql数据库

Question

1,怎样判断与服务器中的数据库连接断开？2.在客户端开发系统，当访问服务器中的数据库时，总是会断开连接，重新启动电脑之后又能连上，过一段时间再访问服务器的数据库时，又提示服务器已断开，每次都要重启或注销才能连上，请问是什么原因造成的连接服务器不稳定？我连接数据库的代码：
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connectionmycon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=HQ;Data Source=HQ-99A6BD6C9B4B"
mycon.connectionTimeout = 25  
mycon.Open

Answer 1

1,怎样判断与服务器中的数据库连接断开？ If mycon.State = adStateClosed Then
   ‘数据库连接断开
End If2.在客户端开发系统，当访问服务器中的数据库时，总是会断开连接，重新启动电脑之后又能连上，过一段时间再访问服务器的数据库时，又提示服务器已断开，每次都要重启或注销才能连上，请问是什么原因造成的连接服务器不稳定？ 可能是由于网络状况不好造成的。解决办法：判断如果断开的话，重新连接一次。