Private Sub btnPopular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPopular.Click

        Dim arquivoSQLServer As OpenFileDialog = New OpenFileDialog()
        arquivoSQLServer.InitialDirectory = "c:\dados\"
        Dim caminho As DialogResult
        Dim caminhoArquivo As String
      
        arquivoSQLServer.Title = "Escolher Arquivo"
        arquivoSQLServer.FileName = "Nome Arquivo"
        arquivoSQLServer.Filter = "Arquivos SQL Server (*.mdf)|*.mdf"
        caminho = arquivoSQLServer.ShowDialog
        caminhoArquivo = arquivoSQLServer.FileName

        If caminhoArquivo = Nothing Then
            MessageBox.Show("Arquivo Invalido", "Abrir Arquivo", MessageBoxButtons.OK)
        Else
            nomeArquivo = Path.GetFileName(caminhoArquivo)
            popularTreeView(nomeArquivo.Replace(".MDF", ""))
            btnRetrair.Enabled = True
            btnExpandir.Enabled = True
        End If
    End Sub

 Private Sub popularTreeView(ByVal DBSQLServer As String)

        'define os objetos ADO .NET para acessar o SQL Server
        Dim conexaoSQLServer As SqlConnection = Nothing
        Dim cmd As SqlCommand
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet

        'define a string de conexão
        Dim strCon As String = "Data Source= .\SQLEXPRESS;Initial Catalog=" & DBSQLServer & ";Integrated Security=True"

        'define a consulta para obter as tabelas e suas colunas
        Dim sqlConsulta As String = "SELECT TABLE_NAME, COLUMN_NAME " +
                                                   "FROM information_schema.columns " +
                                                   "ORDER BY TABLE_NAME, COLUMN_NAME"

        'define os nodes que iremos usar no treeview
        Dim NoRaiz As TreeNode = Nothing
        Dim NoPrincipal As TreeNode = Nothing
        Dim NoFilho As TreeNode = Nothing

        'define algumas constanes e variaveis usadas
        Dim nomePrincipal As String = String.Empty
        Dim nomeFilho As String = String.Empty
        Dim BancoDados As String = DBSQLServer

        Try
            'define e abre a conexão com o SQL Server
            conexaoSQLServer = New SqlConnection(strCon)
            conexaoSQLServer.Open()

            'atribui o comando usado na conexão
            cmd = New SqlCommand(sqlConsulta, conexaoSQLServer)
            da.SelectCommand = cmd

            'preenche o dataset
            da.Fill(ds, "Dados_Sistema")

            tvwDados.Nodes.Clear()
            'inclui o node raiz
            NoRaiz = tvwDados.Nodes.Add(key:="Root", text:=BancoDados, imageIndex:=0, selectedImageIndex:=0)

            Dim contaTabelas as Integer
            For Each row As DataRow In ds.Tables("Dados_Sistema").Rows

                If nomePrincipal <> row(0).ToString Then
                    NoPrincipal = NoRaiz.Nodes.Add(key:="Table", text:=row(0).ToString, imageIndex:=1, selectedImageIndex:=1)
                    nomePrincipal = row(0).ToString
                    contaTabelas += 1
                End If
                 'define os nós filhos
                NoFilho = NoPrincipal.Nodes.Add(key:="Column", text:=row(1).ToString, imageIndex:=2, selectedImageIndex:=2)

            Next

            lblTabelas.Text = contaTabelas.ToString & " Tabelas no arquivo"

            tvwDados.Nodes(0).EnsureVisible()

        Catch ex As Exception
            MessageBox.Show("Erro ao realizar a operação com o arquivo : " & ex.Message)
            Exit Sub
        Finally
            'libera os recursos da conexão usada
            conexaoSQLServer.Close()
            conexaoSQLServer.Dispose()
            conexaoSQLServer = Nothing
        End Try

    End Sub

Private Sub btnExpandir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExpandir.Click
        'expande todos os nós
        tvwDados.ExpandAll()
    End Sub 

Private Sub btnRetrair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetrair.Click
        'retrai todos os nós
        tvwDados.CollapseAll()
    End Sub

 Private Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair.Click
        Dim resultado As DialogResult = MessageBox.Show("Deseja encerrar a aplicação ?", _
             "Encerrar", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

        If resultado = DialogResult.Yes Then
            Application.Exit()
        End If

    End Sub

    Private Sub tvwDados_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvwDados.AfterSelect

        'obtem o item selecionado
        Dim itemSelecionado As String = tvwDados.SelectedNode.ToString
        'remove a string TreeNode
        itemSelecionado = itemSelecionado.Replace("TreeNode: ", "")

        'verifica se o item é nulo
        If (e.Node.Parent IsNot Nothing) Then
            'verifica o tipo do no
            If (e.Node.Parent.GetType() Is GetType(TreeNode)) Then
                If e.Node.Parent.Text = nomeArquivo Then
                    'mostra o nome da tabela e da coluna selecionada
                    MessageBox.Show(e.Node.Parent.Text + "." + itemSelecionado)
                Else
                    'mostra so o nome da tabela
                    MessageBox.Show(itemSelecionado)
                End If

            End If
        End If

    End Sub