Dim DS As New DataSet("Ordini_DettagliOrdini")
Dim DTOrdini, DTDettagliOrdini As DataTable

DS.Tables.Add("Ordini")
DTOrdini = DS.Tables(0)
DTOrdini.Columns.Add("IDOrdine", GetType(Interger))
DTOrdini.Columns.Add("Desc", GetType(String))
DTOrdini.Rows.Add(1, "Test1")
DTOrdini.Rows.Add(2, "Test2")

DS.Tables.Add("DettagliOrdini")
DTDettagliOrdini = DS.Tables(1)
DTDettagliOrdini.Columns.Add("IDDettaglioOrdine", GetType(Interger))
DTDettagliOrdini.Columns.Add("IDOrdine", GetType(Interger))
DTDettagliOrdini.Columns.Add("Desc", GetType(String))
DTDettagliOrdini.Rows.Add(1, 1, "Test1_1")
DTDettagliOrdini.Rows.Add(2, 1, "Test2_1")
DTDettagliOrdini.Rows.Add(3, 2, "Test3_2")
DTDettagliOrdini.Rows.Add(4, 2, "Test4_2")
DTDettagliOrdini.Rows.Add(5, 2, "Test5_2")

DS.Relations.Add("DettagliXOrdini", DTOrdini.Columns("IDOrdine"), DTDettagliOrdini.Columns("IDOrdine"))

For Each DR As DataRow In DTOrdini.Rows()
   Dim DRsDettagliOrdini As DataRow() = DR.GetChildRows("DettagliXOrdini")
Next