主题：如何判断外部数据源是否能够连接

Dim cn As New  Data.Oledb.OledbConnection("连接字符串")
Try
    cn.open()
    cn.Close()
     Messagebox.show("通")
Catch ex As Exception
    Messagebox.show("不通")
End Try

你的问题和这个不一样的。

Dim cn As New  Data.Oledb.OledbConnection("连接字符串")

cn.ConnectionTimeout = 3000  ‘单位为毫秒
Try
    cn.open()
    cn.Close()
     Messagebox.show("通")
Catch ex As Exception
    Messagebox.show("不通")
End Try

通过连接字符串设置，在连接字符串后面加上

Connect Timeout = 秒数;

例如设置为5秒：

Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=hehui;Connect Timeout = 5;