(Visual Basic .Net) Modulo de Conexión Dinámica a SQL Server

Este módulo nos permite conectarnos a una base de datos alojada en "MS Sql Server".
Contiene 4 funciones, una para conectar a la base de datos, 1 para ejecutar sentencias y una que cierra la conexion.
La función de ejecucion de sentencias acepta como parámetro la sentencia en forma de string. Además cuenta con una sobrecarga que permite enviar el dataset al que se volcarán los datos que devuelva dicha sentencia.

Imports System.Data.SqlClient
Imports System.Data.SqlClient
Module Conexion
    Friend dbSQLConn As SqlConnection, dbSQLComm As SqlCommand, dbSQLAdapter As SqlDataAdapter
    Public Sub ConectarSQL(Optional ByVal Server As String = "(local)\SQLEXPRESS", Optional ByVal DB As String = "master")
        dbSQLConn = New SqlConnection("Server=" & Server & ";Database=" & DB & ";Integrated Security=true")
        Try
            dbSQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub
    Public Function ExecuteSQL(ByVal Query As String) As SqlDataAdapter
        dbSQLComm = New SqlCommand(Query, dbSQLConn)
        dbSQLAdapter = New SqlDataAdapter(dbSQLComm)
        Return dbSQLAdapter
    End Function
    Public Function ExecuteSQL(ByVal Query As String, ByRef ds As DataSet) As Integer
        dbSQLComm = New SqlCommand(Query, dbSQLConn)
        dbSQLAdapter = New SqlDataAdapter(dbSQLComm)
        Dim build As New SqlClient.SqlCommandBuilder(dbSQLAdapter)
        dbSQLAdapter.UpdateCommand = build.GetUpdateCommand
        Return dbSQLAdapter.Update(ds)
    End Function
    Public Sub DesconectarSQL()
        dbSQLConn.Close()
    End Sub
End Module

(VB .Net) Modulo Conexion

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient
Module Conexion
    Friend dbMySQLConn As MySqlConnection, dbSQLConn As SqlConnection
    Friend MySQLStrConn As String, SQLStrConn As String
    Public Sub ConectarSQL(Optional ByVal StrConn As String = "")
        If StrConn = "" Then
            StrConn = "Server = .\SQLEXPRESS; Integrated Security = True"
        End If
        dbSQLConn = New SqlConnection(StrConn)
        Try
            dbSQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub

    Public Sub ConectarMySQL(Optional ByVal StrConn As String = "")
        If StrConn = "" Then
            StrConn = "Server = localhost; User = root; port = 3306"
        End If
        dbMySQLConn = New MySqlConnection(StrConn)
        Try
            dbMySQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub

    Public Function ExecuteReaderSQL(ByVal query As String) As SqlDataReader
        Dim p As SqlCommand
        p = New SqlCommand(query)
        p.Connection = dbSQLConn
        Dim read As SqlDataReader = p.ExecuteReader()
        Return read
    End Function

    Public Function ExecuteReaderMySQL(ByVal query As String) As MySqlDataReader
        Dim p As MySqlCommand
        p = New MySqlCommand(query)
        p.Connection = dbMySQLConn
        Dim read As MySqlDataReader = p.ExecuteReader()
        Return read
    End Function

    Public Sub DesconectarSQL()
        dbSQLConn.Close()
    End Sub

    Public Sub DesconectarMySQL()
        dbMySQLConn.Close()
    End Sub
End Module