主题：Connections.TryConnect当网络不稳定时这个会很慢

 1、先测试能否联网

http://www.foxtable.com/webhelp/scr/2709.htm

 2、可以用ADO，如果不联网，检测一次是至少10秒以上的。

try
    Dim conn As ADODB.Connection
    conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
    conn.Open
   
    msgbox("成功")
    conn.close
Catch ex As Exception
    msgbox("失败")
End try