DA_Categorie = New OleDbDataAdapter
        DA_Categorie.SelectCommand = New OleDb.OleDbCommand("SELECT * from TCategorie where IDAzienda = " & Azienda_Sel_ID & " order by Ordine", Cn)
        DA_Categorie.FillSchema(DSDatiTabelle, SchemaType.Source, "TCategorie")
        DA_Categorie.Fill(DSDatiTabelle, "TCategorie")

        DA_Sottocategorie = New OleDbDataAdapter("SELECT TS.* from TSottocategorie TS, TCategorie TC where TS.IDCategoria = TC.IDCategoria and TC.IDAzienda = " & Azienda_Sel_ID & " order by TS.IDCategoria, TS.Ordine", Cn)
        DA_Sottocategorie.FillSchema(DSDatiTabelle, SchemaType.Source, "TSottocategorie")
        DA_Sottocategorie.Fill(DSDatiTabelle, "TSottocategorie")

        DSDatiTabelle.Relations.Add(New DataRelation("CategorieTOSottocategorie", DSDatiTabelle.Tables("TCategorie").Columns("IDCategoria"), DSDatiTabelle.Tables("TSottocategorie").Columns("IDCategoria"), True))