主题：也来问问发布后的数据源连接问题

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