标题：检查外部数据源是否正常连接的问题

项目中用到了外部数据源，如果在打开项目的时候由于网络或者其他原因无法正常连接到局域网中的数据库 ，这时就会跳出一连串的错误，显然这不是用户想看到的 ，可否在打开项目的时候先检测是否能正常连接到数据库，如果不能正常连接 给用户友好的提示

除了打开项目的时候检测 ，还有在从数据库动态加载数据的时候，如果这个时候无法正常连接数据库也会爆一大堆错误

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

Dim Conn As New Data.Oledb.OledbConnection(Str1)
Try
   conn.Open
   messagebox.show("成功")

   conn.Close
Catch
   messagebox.show("失败")
End Try

看完下面的内容：
 
http://www.foxtable.net/help/topics/1944.htm