สอบถามเกี่ยวกับ class connectDB เวลา Connect ตอนดึงข้อมูลเสร็จตรง Function จะปิดการ connect ให้เลยไหม

Public Class SqlGet
 Public Function SqlGet(ByVal sql As String, ByVal MyData As String) As DataSet
        Dim conn As SqlConnection = New SqlConnection(Module1.strconn)
        Dim da As New SqlDataAdapter(sql, conn)
        Dim ds As New DataSet()
        da.Fill(ds, MyData)
        conn.Close
        Return ds
    End Function
End Class

 Public Function SqlGet(ByVal sql As String, ByVal MyData As String) As DataSet
       Dim ds As New DataSet()
    Using conn As  New SqlConnection(Module1.strconn)
        da.Fill(ds, New SqlDataAdapter(sql, conn))
     End Using
        Return ds
    End Function

 If conn.State = ConnectionState.Open Then
            MsgBox("1")
        Else
            MsgBox("0")
        End If

Imports System.Data.SqlClient

Module Module1
    <System.Runtime.CompilerServices.Extension()> _
    Public Function SqlGet(ByVal sql As String, ByVal strconn As String) As DataTable
        Dim dt As New DataTable
        Using cnn As New SqlConnection(strconn)
            cnn.Open()
            Using dad As New SqlDataAdapter(sql, cnn)
                dad.Fill(dt)
            End Using
            cnn.Close()
        End Using
        Return dt
    End Function
End Module

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt As DataTable = "Select Tuna 555".SqlGet("ConnString")
    End Sub
End Class