VB.net的sql连接代码_VB Dotnet

求助VB.net的sql连接代码
Dim conntxt As String = "Data Source=PC-20131129;Initial Catalog=school1;Integrated Security=True"
Dim conn As SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(conntxt)
这2段代码应该要怎么写，能让全部窗体都能使用这2个变量。应该要交给别人使用，Data Source=PC-20131129这里肯定要变的，因为是不同的电脑，所以来请教一下，可以怎么写，改起来方便点，因为有多个窗体。
------解决方案--------------------
在web.config中的<configuration>后加入


<appsettings>
   <add key="connstring"  
   value="Data Source=PC-20131129;Initial Catalog=school1;Integrated Security=True" />
</appsettings>
然后再调用
imports system.configuration
dim myvar as string  
myvar=configurationsettings.appsettings("connstring"）

供LZ参考！
------解决方案--------------------

http://hi.baidu.com/xjnzhidao/item/c60bf21666d85b611009b599