情况是这样的，VB连接SQL时，如果服务器没打开或IP地址错误时，需要等待很久才能提示连接失败，设置ConnectionTimeout 的值也不管用，我已经在百度上找遍了这样的答案都没有结果，有人说用下面的代码可以解决，但是我试了也不行。我想要的结果是如果连接不到服务器，在我指定的时间里(Cnn.ConnectionTimeout = 3' 秒)给出错误信息，不要一直像卡死一样的状态。请大神指点，很多朋友都需要这个答案。
网上代码如下

Private WithEvents Cnn As ADODB.Connection
Private Sub Command1_Click()
Set Cnn = New ADODB.Connection
On Error GoTo No
    Cnn.ConnectionTimeout = 3
    Cnn.Open "Provider=sqloledb;Data Source=123.112.234.222;Initial Catalog=master;User ID=sa;PassWord=sa;Options=adAsyncConnect"
    If Cnn.State = adStateOpen Then MsgBox "连接成功" Else MsgBox "连接失败"
Me.Command1.Enabled = True
Exit Sub
No:
    MsgBox Err.Description
    Err.Clear
End Sub

版主你好！能详细点说一下么，我把你这行代码替换过去还是要等三四十秒呢？能不能给一段完整可行的代码，我真的很需要，非常感谢！