ผมมันพวกปัญหาเยอะครับ รบกวนช่วยดุให้หน่อยว่า ผมควรจะแก้ไขมันยังดี

Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Transactions
Imports System.Text

Module Module1
    '===============ชุดตัวแปรที่เอาไว้เชื่อมต่อฐานข้อมูล===============
    Public Conn As New SqlConnection(strCon)
    Public Com As New SqlCommand()
    Public strCon As String = "Data Source=HOME-PC\SQLSERVER;Initial Catalog=MusicTreading;Integrated Security=True"
    Public ds As New DataSet()
    Public sb As New StringBuilder()
    Public Sql As String
    Public reader As SqlDataReader
  
 
    Public Sub dbOpen()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strCon
            .Open()
        End With
    End Sub
End Module