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

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