为什么ADODB ConnectionTimeout设置了没效果

Question

我要判断某一个服务器是否能连接，但是要控制时间，2s内如果不能连接我就返回连接失败
Public Function IsServerOK() As Boolean
   On Error GoTo err
   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   conn.ConnectionTimeout = 2 '设置连接超时，2s内无法连接视为服务器不可用
   conn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;UID=sa;PWD=sa;Initial Catalog=TEST;Data Source=192.168.1.1" '连接服务器
   conn.Close
   Set conn = Nothing
   IsServerOK= True
   Exit Function
err:
   Set conn = Nothing
   IsServerOK= False
End Function实际测试，无论怎么设ConnectionTimeout ，都要等30s左右才返回结果。（我记得默认是30s的）
请问这是怎么回事？有没有解决办法

Answer 1

conn.ConnectionTimeout 影响的是Execute方法，没有影响Open
使用 Execute 方法执行对连接的命令，并使用 CommandTimeout 属性对执行进行配置