Conectar a Banco de Dados via SQL Server no VB.NET

Primeiro devemos incluir o Namespace para conectar via código.


Pode colocar em um Módulo como no exemplo:


Imports System.Data.SqlClient
Module modBD
    Public SQL As String
    Public CNT As New SqlConnection
    Public Function Carregar_Banco() As SqlConnection
        Dim msg As String = "Erro ao Carregar Banco de Dados"
        ' Carregar o Banco de Dados SQL
        SQL = "DATA SOURCE = " & Servidor & ";" ' Nome do Servidor
        SQL = SQL & "USER ID = " & Usuario & ";" ' Nome do Usuario
        SQL = SQL & "PASSWORD = " & Senha & ";" ' Senha do Usuário
        SQL = SQL & "INITIAL CATALOG = " & Base '& ";" ' Base de Dados
        'SQL = SQL & "INTEGRATED SECURITY = YES"
        CNT.ConnectionString = SQL


            If CNT.State = 0 Then
                Try
                    CNT.Open()
                    'MsgBox("Banco de Dados Carregado")
                    'Return True

                Catch ex As Exception
                    MsgBox(msg & vbNewLine & ex.ToString(), MsgBoxStyle.Exclamation, "Alerta")

                End Try
            End If
        Return CNT
    End Function

End Module