模块中的Vb.Net设置连接(Vb.Net setting connection in Module)

 我正在创建一个新的Vb.Net项目，我正在寻找创建一个模块，该模块将在项目运行时启动，以便设置连接。 我创建了一个名为Connection的新模块，并将以下代码放在那里...... 
 
Imports System.Data.SqlClient
Module Connection
    Sub main()
        Dim sConnection As String = "Data Source=Van;Initial Catalog=OP;User ID=userid;Password=password"
    End Sub
End Module
 
 现在，在我的Form1中，我添加了SQLConnection组件并尝试执行此类操作.... 
 
Using Con as New SQLConnection(sConnection)
 
 '但这似乎不起作用。 连接字符串正常工作，因为如果我将其包含在表单本身中它完全正常工作。 
 
 发生这种情况有什么特别的原因吗？ 另外，假设我在应用程序中有30个表单，是否需要将SqlConnection组件添加到需要与DB通信的每个表单中？ 

I'm creating a new Vb.Net project and I'm looking to create a module that will fire up when project is run so that the connection is set. I created a new module called Connection and placed the following code there...
 
Imports System.Data.SqlClient
Module Connection
    Sub main()
        Dim sConnection As String = "Data Source=Van;Initial Catalog=OP;User ID=userid;Password=password"
    End Sub
End Module
 
And now in my Form1 I added the SQLConnection component and attempt to do something like this....
 
Using Con as New SQLConnection(sConnection)
 
'but this does not seem to work. The connection string works properly since it's fully working if I include it in the form itself. 
 
Any particular reason why this is happening? Also, say I have 30 forms in the app, do I need to add the SqlConnection component to each form that will need to talk to the DB?