DataSet

qui dichiaro le variabili che mi servono per la classe che mi esegue la stored
    Private ObjAlb As New PropertyAlb
    Private Read_record As New GestoreAlb
    Private AlbColl As New AlbCollection
qui dichiaro le variabili che mi servono per aggiornare il dataset
    Private NRec As New GestoreDataset
    Private MyTable As DataTable
    Private MyRow As DataRow

        AlbColl = Read_record.CaricaRecAll(ObjAlb)
        For i As Integer = 0 To AlbColl.Count - 1
            MyTable = NRec.NAlb
            MyRow = MyTable.NewRow
            MyRow("Codice") = AlbColl.Item(i).CodiceAlbergo
            MyRow("Nome") = AlbColl.Item(i).Descrizione
            MyRow("Comune") = AlbColl.Item(i).CittaAlb
            MyRow("CodComune") = AlbColl.Item(i).CodiceComune
            mytable.Rows.Add(myrow)
            Dim ds As DataSet = New DataSet
            ds.Tables.Add(mytable)
        Next i

Public Class GestoreDataset
    'Numero strutture gestiti
    Public Function NAlb() As DataTable
        Dim mytable As DataTable = New DataTable("NAlb")
        Dim mycolumn As DataColumn = New DataColumn
        mycolumn.DataType = System.Type.GetType("System.Int32")
        mycolumn.ColumnName = "Codice"
        mytable.Columns.Add(mycolumn)
        mycolumn = New DataColumn
        mycolumn.DataType = System.Type.GetType("System.String")
        mycolumn.ColumnName = "Nome"
        mytable.Columns.Add(mycolumn)
        mycolumn = New DataColumn
        mycolumn.DataType = System.Type.GetType("System.String")
        mycolumn.ColumnName = "Comune"
        mytable.Columns.Add(mycolumn)
        mycolumn = New DataColumn
        mycolumn.DataType = System.Type.GetType("System.Int32")
        mycolumn.ColumnName = "CodComune"
        mytable.Columns.Add(mycolumn)
        NAlb = mytable
    End Function
End Class