Parâmetros deste Módulo

Adicione um form ( no exemplo chamei ele de frmPrincipal) e adicione 4 campos:
   •1-Servidor-txtServidor
   •2-Banco de dados-tstBD
   •3-Usuário-txtUsuario
   •4-Senha-txtSenha
Não se esqueça que senha você tem que colocar no PassWordChar o * ou # para que ninguém visualize o texto da senha digitada.

Para funcionar também é preciso instalar o System.Data que permite o acesso aos objetos do SQL Server.

Tipos de Resultados que podem ser obtidos pelo Módulo

Criei as funções de acesso ao MS SQL de todos os tipos:
   •1-DefineStrConexao: Monta o string de conexão.
   •2-AbreConexao: Abre a conexão com o servidor SQL se já não estiver aberta.
   •3-MS_SQL_SRV_DS: Faz a pesquisa e retorna um Dataset. No Dataset.tables(0) estarão os dados retornados pela pesquisa.
   •4-MS_SQL_SRV_EX: Executa um comando que não retorna nada (truncate, delete, etc) exceto uma mensagem de erro se estiver errado.
   •5-MS_SQL_SRV_INT: Executa um comando que retorna apenas um inteiro como na pesquisa de um índice ou um next value.
   •6-MS_SQL_SRV_STR>Executa um comando que retorna um string. Apenas um string como um nome de tabela.
   •7-MS_SQL_SRV_Single>Executa um comando que retorna um single. Apenas um número single.
   •8-MS_SQL_RS: Executa um comando que retorna um Recordset. É o ideal para popular um GridView.
   •9-MS_SQL_SQL_Proc: Executa uma proc. Possui 2 parâmetros: um é o comando e o segundo são os parâmetros da Proc.

Tratamento de erros

Criei uma variável global chamada erro assim se ocorrer um erro a mensagem será depositada nele.
Senão ocorrer nenhum erro a variavel erro virá em branco.

O conteúdo do módulo é o seguinte :

Imports System.Data.SqlClient

'gerenciador de pacotes - instalar o System Data Client

Module ModuloMSSQLWindowsForms

    Public cnstr As String = "" 'string de conexão com o banco de dados
    Public cncn As New SqlConnection 'conexão com o banco de dados
    Public Erro As String = "" 'troca de mensagens de erro

    ''' <summary>
    ''' Define o string de conexão com o banco de dados que dependente da url de acesso do site
    ''' </summary>
    Public Sub DefineStrConexao()
        cnstr = "Server=" + frmPrincipal.txtServidor.Text + ";Database=" + frmPrincipal.txtBD.Text + ";User Id=" + frmPrincipal.txtUsuario.Text + ";Password=" + frmPrincipal.txtSenha.Text
    End Sub

    ''' <summary>
    ''' abre a conexão com o banco de dados
    ''' </summary>
    Public Sub AbreConexao()
        Erro = ""
        Try
            If cncn.ConnectionString = "" Then
                DefineStrConexao()
                cncn.ConnectionString = cnstr
                cncn.Open()
                Return
            End If
        Catch ex As SqlException
            Erro = ex.Message
        End Try

    End Sub

    ''' <summary>
    ''' Faz a pesquisa e retorna um DataSet
    ''' </summary>
    Public Function MS_SQL_SRV_DS(Query As String) As DataSet
        Erro = ""
        Try
            AbreConexao()
            Dim cmd = New SqlCommand(Query, cncn)
            Dim MS_SQL_SqlDtAdapter = New SqlDataAdapter(cmd)
            Dim DS As New DataSet()

            MS_SQL_SqlDtAdapter.Fill(DS)
            Return DS
        Catch ex As Exception