解决sql server查询超时已过期

参考链接：

https://blog.csdn.net/netcoder/article/details/599608

https://blog.csdn.net/weixin_33936401/article/details/85441151

错误提示：

解决方法参考来自：

https://zhidao.baidu.com/question/555587506.html

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "DRIVER={SQL Server}..."
cn.ConnectionTimeout = 0 '设置链接的时限，0，无限制 
cn.CommandTimeout = 0 '设置查询的时限，0，无限制
cn.open