Using MyDataSet As New DataSet
    Dim MyDataTableGruppi As New DataTable
    SQL.Clear()
    SQL.AppendLine("SELECT Codice, Descrizione")
    SQL.AppendLine("FROM TABGRUPPI")

    MyDataAdapter.SelectCommand = New MySqlCommand(SQL.ToString, Conn)
    MyDataAdapter.Fill(MyDataTableGruppi)

    Dim MyDataTableGruppiOK As DataTable = MyDataTableArticoli.DefaultView.ToTable(True, "CodGruppo")

    MyDataSet.Tables.Add(MyDataTableGruppi)
    MyDataSet.Tables.Add(MyDataTableGruppiOK)

    MyDataSet.Relations.Add("Relazione", MyDataTableGruppi.Columns("Codice"), MyDataTableGruppiOK.Columns("CodGruppo"))
    MyDataTableGruppiOK.Columns.Add("Descrizione", GetType(System.String), "Parent.Descrizione")
    MyDataTableGruppiOK.DefaultView.Sort = "CodGruppo ASC"

    PresentazioneDati.DataGridViewGruppi.DataSource = MyDataTableGruppiOK.DefaultView
End Using