vb.net mysql查询单点运行

我需要从保存在计算机中的记事本文件中获取mysql登录数据，连接服务器并运行查询，所有这些都只需单击一次

我有这段代码，但问题是有一个“publicsubsavenames（byrefsqlstatementasstring）”部分&我不知道如何将其包含到按钮单击事件中

    Imports MySql.Data.MySqlClient
    Public Class Admission
    Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles admission_btn_save.Click
     If System.IO.File.Exists("D:\DBSystem\Connection\connconfig.dbs") = True Then

    Dim strFile As String = "D:\DBSystem\Connection\connconfig.dbs"
    Dim sr As New IO.StreamReader(strFile)
    Dim ip As String
    Dim port As String
    Dim userid As String
    Dim password As String
    Dim database As String

    'reading
    ip = sr.ReadLine()
    port = sr.ReadLine()
    userid = sr.ReadLine()
    password = sr.ReadLine()
    database = sr.ReadLine()
    sr.Close()


    'default connection code
    Dim serverstring As String = "server=" & ip & ";port=" & port & ";database=" & database & ";user ID=" & userid & ";password=" & password & ";OldGuids=true"
    Dim sqlconnection As MySqlConnection = New MySqlConnection
    sqlconnection.ConnectionString = serverstring

    Try
        If sqlconnection.State = ConnectionState.Closed Then
            sqlconnection.Open()
            MsgBox("Successfully connected to database!")
        Else
            sqlconnection.Close()
            MsgBox("connection closed!")

        End If

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

    'reading from notepad config file




Else
    MessageBox.Show("Do not have any previous configurations!", "Error",
       MessageBoxButtons.OK)
End If
End Sub

   'i need to eliminate this sub and add it into the button click event
   Public Sub Savenames(ByRef sqlstatement As String)
Dim cmd As MySqlCommand = New MySqlCommand

With cmd
    .CommandText = sqlstatement
    .CommandType = CommandType.Text
    .Connection = sqlconnection
    .ExecuteNonQuery()

End With
sqlconnection.Close()
MsgBox("Successfully recorded!")
sqlconnection.Dispose()

End Sub

 End Class

---

我需要删除“publicsubsavenames（byrefsqlstatementasstring）”部分，并将其添加到按钮单击事件中。我没有那么多编程知识，因为我是自学的。你知道怎么做吗？（请给我看修改后的代码）

简单地将该sub的任务添加到检查连接的部分。由于连接已打开，无需再次打开。另外，请不要忘记给出查询语句…（我猜是插入）

---

您只需在

MetroButton1\u单击按钮的事件：
Dim name As String=Savenames（“somestringvalue”）
中调用该过程即可。
 Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles admission_btn_save.Click
            If System.IO.File.Exists("D:\DBSystem\Connection\connconfig.dbs") = True Then

                Dim strFile As String = "D:\DBSystem\Connection\connconfig.dbs"
                Dim sr As New IO.StreamReader(strFile)
                Dim ip As String
                Dim port As String
                Dim userid As String
                Dim password As String
                Dim database As String

                'reading
                ip = sr.ReadLine()
                port = sr.ReadLine()
                userid = sr.ReadLine()
                password = sr.ReadLine()
                database = sr.ReadLine()
                sr.Close()


                'default connection code
                Dim serverstring As String = "server=" & ip & ";port=" & port & ";database=" & database & ";user ID=" & userid & ";password=" & password & ";OldGuids=true"
                Dim sqlconnection As MySqlConnection = New MySqlConnection
                sqlconnection.ConnectionString = serverstring

                Try
                    If sqlconnection.State = ConnectionState.Closed Then
                        sqlconnection.Open()
                        MsgBox("Successfully connected to database!")
                        Dim sqlstatement As String = "Insert int >>>Your Query"
                        Dim cmd As MySqlCommand = New MySqlCommand

                        With cmd
                            .CommandText = sqlstatement
                            .CommandType = CommandType.Text
                            .Connection = sqlconnection
                            .ExecuteNonQuery()

                        End With
                        sqlconnection.Close()
                        MsgBox("Successfully recorded!")
                    Else
                        sqlconnection.Close()
                        MsgBox("connection closed!")

                    End If

                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

                'reading from notepad config file




            Else
                MessageBox.Show("Do not have any previous configurations!", "Error",
                   MessageBoxButtons.OK)
            End If
        End Sub