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

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