如何设置ConnectionTimeOut的连接时间？

我想设置一个连接远程数据库的连接时间为5秒钟，如果在5秒钟之内没有连接上，就提示并退出。
    CONN.ConnectionTimeout = 5
    CONN.Open ConnString, , , 1       '启用异步连接
    
    Do While CONN.State = adStateConnecting
        'Debug.Print "----"
        DoEvents
    Loop
    
    If CONN.State = adStateOpen Then
        StatusBar1.Panels(3).Text = "连接数据库成功"
    ElseIf connTest.State = adStateClosed Then
        StatusBar1.Panels(3).Text = "连接数据库出错"
    Endif

    设置的5秒钟 为什么总是要等半分种的样子！！总之等待时间太长~