Modulo com diversas rotinas de conexão com banco de dados SQLServer

O ideal para quem programa em vb.Net é armazenar suas rotinas em módulos ou no caso de orientação a objeto pode ser em classes.
Isso deixa o código mais legível e organizado, não é só por deixar o código mais legível que se usa as boas praticas de programação, isso se deve a  questão de reuso de código, que deve ser muito considerada por bons programadores que não veem nenhum problema em escrever mais algumas linhas de código ou desenvolver outra rotina.

Imports System.Data.SqlClient
Module modConBD
    Public conecta As New SqlConnection
    Public comando As New SqlCommand

    '********************************************************************************
    ' Função para conexao ao banco de dados                                         *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************
    Public Function Conectar()
        conecta.Close()
        conecta.ConnectionString = ("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbPedido")
        conecta.Open()
        comando.Connection = conecta
        Return True
    End Function

    '********************************************************************************
    ' Função para desconetar do banco de dados                                      *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************
    Public Function Desconectar()
        conecta.Close()
        Return True
    End Function

    '********************************************************************************
    ' Função para Adicionar um cliente no banco de dados                            *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************
    Public Function Incluir(ByVal v_nome_cli As String, ByVal v_nascimento_cli As String, ByVal v_CPF_cli As String, _
                            ByVal v_RG_cli As String, ByVal v_endereco_cli As String, ByVal v_complemento_cli As String, _
                            ByVal v_bairro_cli As String, ByVal v_cidade_cli As String, ByVal v_uf_cli As String, _
                            ByVal v_cep_cli As String)
        Conectar()

        comando.CommandText = ("insert into cliente(nome_cli ,nascimento_cli, cpf_cli, rg_cli, endereco_cli," & _
                               "complemento_cli, bairro_cli, UF_Est, cidade_cli , cep_cli) values" & _
                               "('" & v_nome_cli & "','" & v_nascimento_cli & "','" & v_CPF_cli & "','" & v_RG_cli & _
			 	"','" & v_endereco_cli & "','" & v_complemento_cli & "','" & v_bairro_cli & _
				 "','" & v_cidade_cli & "','" & v_uf_cli & "','" & v_cep_cli & "')")
        comando.ExecuteNonQuery()
        Desconectar()
        Return comando.CommandText
    End Function

    '********************************************************************************
    ' Função para teste de conexão com o banco de dados                             *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************
    Public Function testeconexao()
        Dim retorno As Boolean = False
        Try
            Conectar()
            retorno = True
        Catch ex As Exception
            Desconectar()
            retorno = False
        End Try
        Return retorno

    End Function
    '********************************************************************************
    ' Função para pesquisa incremental de clientes em um banco de dados             *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************

    Public Function pesquisaCliente(ByVal tabela As String, ByVal id As String)
        Dim dtr As SqlDataReader
        ' Conecta  com o banco de dados
        '
        Conectar()

        ' pega a o comando texto e armazena
        '
        comando.CommandText = ("select * from" & tabela & "where id=" & id)
        dtr = comando.ExecuteReader

        If dtr.Read Then

        Else
            MessageBox.Show("Nenhum registro encontrado")
        End If

        dtr.Close()
        Desconectar()
        frmCadCliente.Refresh()
        Return True
    End Function
    '********************************************************************************
    ' Função para consultar todos os clientes em um banco de dados                  *
    '                                                                               *
    '                                                                               *
    '                                                                               *
    '********************************************************************************
    Public Function consultar()
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        ' Conecta  com o banco de dados
        '
        Conectar()
        ' pega a o comando texto e armazena
        '
        comando.CommandText = ("select *  from cliente")

        ' executa o comando texto
        '
        da.SelectCommand = comando
        'pega o dataset e a tabela
        '
        da.Fill(dt)
        'Desconecta do banco
        '
        Desconectar()
        'Retorna o datatable
        '
        Return dt
    End Function
End Module