Clase de conexión VB.Net a SQL

Siempre es bueno tener a la mano una clase que encapsule todos los métodos de conexión con la BD, aqui les dejo una alternativa que yo siempre uso.

Obviamente tendrán que exportar los parámetros de conexion a un archivo .ini o xml si es que les parece más sencillo.

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text

Module modConeccion
   Private cn As SqlConnection
   Private da As SqlDataAdapter
   Private dt As DataTable
   Private cm As SqlCommand
   Private dr As SqlDataReader

   Public Enum TipoProcesamiento
       NonQuery = 1
       Scalar = 2
       DataTable = 3
   End Enum


   Public Sub GeneraCadena(ByVal cServidor As String, ByVal cBase As String, ByVal cUsuario As String, ByVal cPassword As String)
       cn = New SqlConnection("Server=" & cServidor & ";Database=" & cBase & ";Uid=" & cUsuario & ";Pwd=" & cPassword & ";")
   End Sub

   Public Sub Conectar()
       GeneraCadena({SERVIDOR}, {BD}, {USUARIO}, {PASSWORD})
       cn.Open()
   End Sub

   Public Sub Desconectar()
       cn.Close()
       'cn.Dispose()
   End Sub

   Public Function EjecutarConsulta(ByVal cConsulta As String, ByVal cTipoProceso As TipoProcesamiento, Optional ByVal bAlerta As Boolean = True) As Object
       Try
           Conectar()
           If cTipoProceso = TipoProcesamiento.NonQuery Then
               cm = New SqlCommand(cConsulta, cn)
               cm.ExecuteNonQuery()
               Return True
           ElseIf cTipoProceso = TipoProcesamiento.Scalar Then
               cm = New SqlCommand(cConsulta, cn)
               Return cm.ExecuteScalar()
           ElseIf cTipoProceso = TipoProcesamiento.DataTable Then
               da = New SqlDataAdapter(cConsulta, cn)
               dt = New DataTable()
               da.Fill(dt)
               Return dt
           Else
               Throw New Exception("Tipo de procesamiento no válido")
           End If
       Catch ex As Exception
           If bAlerta = True Then
               MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "Error")
           End If
           Return Nothing
       Finally
           Desconectar()
       End Try
   End Function

   Public Function EjecutarProcedure(ByVal cNombreProcedure As String, ByVal pParametros() As SqlParameter, ByVal cTipoProceso As TipoProcesamiento, Optional ByVal bAlerta As Boolean = True) As Object
       Try
           Conectar()
           Dim cm As New SqlCommand
           cm = New SqlCommand(cNombreProcedure, cn)
           cm.CommandType = CommandType.StoredProcedure
           cm.Parameters.AddRange(pParametros)

           If cTipoProceso = TipoProcesamiento.NonQuery Then
               cm.ExecuteNonQuery()
               Return True
           ElseIf cTipoProceso = TipoProcesamiento.Scalar Then
               Return cm.ExecuteScalar
           ElseIf cTipoProceso = TipoProcesamiento.DataTable Then
               da = New SqlDataAdapter(cm)
               dt = New DataTable()
               da.Fill(dt)
               Return dt
           Else
               Throw New Exception("Tipo de procesamiento no válido")
           End If
       Catch ex As Exception
           If bAlerta = True Then
               MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "Error")
           End If
           Return Nothing
       Finally
           Desconectar()
       End Try
   End Function
End Module

Reemplazar los datos de conexion (encerrados por {}) de acuerdo a tus necesidades