Sub Test()

    On Error Resume Next

    Dim conn
    Dim StartTime, EndTime
    Set conn = CreateObject("ADODB.Connection")

    StartTime = Timer

    ' set any desirable timeout in seconds
    conn.ConnectionTimeout=3

    ' edit this connection string
    conn.ConnectionString="DRIVER={MySQL ODBC 5.2 Driver};Uid=xxxxxx;Pwd=xxxxxxx;Server=10.0.0.111;Database=test"
    conn.Open


    EndTime = Timer
    MsgBox Err.Description & vbCr & vbLf & "Elapsed Seconds: " & (EndTime-StartTime)
    Set conn = Nothing

End Sub

Test