在其他表单VB.net中重用MySQL连接

我对VisualBasic非常陌生，现在我已经将我的程序连接到数据库以保存和获取输入，这很好。我现在想做的是在其他表单上重用与数据库的连接。我想把《全球宣言》放到一个类中，让它们可以从那里访问，但我不知道怎么做。我尝试过不同的方法，但我总是以一些错误告终。。。我真的被卡住了，希望能得到任何帮助

以下是部分代码：

导入MySql.Data.MySqlClient
公开课表格1
“全球三角洲”
Dim解释为String=“Server=localhost；”和“Database=data；”和“Uid=password；”和“Pwd=password；”
Dim con作为新的MySQL连接（施工）
Dim cmd作为MySqlCommand
Dim适配器作为MySqlDataAdapter
Dim dt作为新数据表（）
私有子表单1_Load（发送方作为对象，e作为事件参数）处理MyBase.Load
'构造数据网格视图
DataGridView1.ColumnCount=4
DataGridView1.Columns（0）。Name=“ID”
DataGridView1.Columns（1）.Name=“Name”
DataGridView1.Columns（2）.Name=“Position”
DataGridView1.Columns（3）.Name=“团队”
DataGridView1.SelectionMode=DataGridViewSelectionMode.FullRowSelect
检索（）
端接头
私有子cleartxt（）
TextBox_name.Text=“”
TextBox_position.Text=“”
TextBox_team.Text=“”
端接头
'插入到数据库中
专用子添加（）
Dim sql As String=“插入人员（姓名、职位、团队）值（@Name、@Position、@Team）”
cmd=新的MySqlCommand（sql，con）
“参数
cmd.Parameters.AddWithValue（“@NAME”，TextBox\u NAME.Text）
cmd.Parameters.AddWithValue（“@POSITION”，TextBox\u POSITION.Text）
cmd.Parameters.AddWithValue（“@TEAM”，TextBox\u TEAM.Text）
'打开连接并插入
尝试
con.Open（）
如果cmd.ExecuteNonQuery（）大于0，则
MsgBox（“科雷克特普罗杜克特拉格酒店”）
cleartxt（）
如果结束
con.Close（）
检索（）
特例
MsgBox（例如消息）
con.Close（）
结束尝试
端接头

使用全局连接字符串，但根据需要创建、使用、关闭和处置连接。其他DB对象也是如此，除非您正在配置一个DataAdapter来为您做所有事情。如果您必须同意@Proputix。ADO.NET是专门为这种方式设计的，所以不要试图与之抗争。实际上，多亏了连接池，如果您创建了多个使用相同连接字符串的

MySqlConnection

对象，那么它们实际上将在较低级别使用相同的数据库连接。