TreeView1.Nodes.Clear()
        Dim sql As String = "Select information_schema.TABLES.TABLE_SCHEMA" & _
                            " From information_schema.TABLES" & _
                            " Group By information_schema.TABLES.TABLE_SCHEMA"
        Dim DA As New MySqlDataAdapter(sql, Connection)
        Dim DS As New DataSet
        DA.Fill(DS, "Database")
        DA = Nothing
        sql = "SELECT TABLE_SCHEMA,TABLE_NAME,ENGINE,VERSION,TABLE_ROWS,DATA_LENGTH,INDEX_LENGTH,CREATE_TIME,UPDATE_TIME FROM INFORMATION_SCHEMA.TABLES"
        DA = New MySqlDataAdapter(sql, Connection)
        DA.Fill(DS, "Tabelle")
        DA = Nothing

        sql = "SELECT ROUTINE_SCHEMA,ROUTINE_NAME FROM INFORMATION_SCHEMA.ROUTINES" & _
              " WHERE ROUTINE_TYPE='PROCEDURE'"
        DA = New MySqlDataAdapter(sql, Connection)
        DA.Fill(DS, "Routine")
        DA = Nothing
        For Each Database As DataRow In DS.Tables("Database").Rows
            Dim mioNodo As New TreeNode
            mioNodo = TreeView1.Nodes.Add(Database("TABLE_SCHEMA").ToString)
            mioNodo = TreeView1.Nodes.Add("TABELLE")
            For Each Tabelle As DataRow In DS.Tables("Tabelle").Rows
                If Tabelle("TABLE_SCHEMA") = Database("TABLE_SCHEMA") Then
                    mioNodo.Nodes.Add(Tabelle("TABLE_NAME"))
                End If
            Next
            mioNodo = TreeView1.Nodes.Add("ROUTINE")
            mioNodo = TreeView1.Nodes.Add("nodo1des.ImageIndex = 1")
            For Each Routine As DataRow In DS.Tables("Routine").Rows
                If Routine("ROUTINE_SCHEMA") = Database("TABLE_SCHEMA") Then
                    mioNodo.Nodes.Add(Routine("ROUTINE_NAME"))
                End If
            Next
        Next