如何判断sql是否启动服务。连接数据库的延时问题。

Question

我采用以下连接sql
        Set cnn = New ADODB.Connection
        cnn.ConnectionTimeout = 7
        cnn.Open ConnectString '使用ip
        MsgBox "连接成功" 
        Set cnn = Nothing
On_Error:    MsgBox "连接失败数据库失败", vbInformation
    Set cnn = Nothing
当ConnectString设置错误或者服务器没有启动服务的时候，ERROR产生需要30－40秒左右，虽然我设置了延时为7。有什么有效的方法控制延时为10后就提示连接失败。