Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        ObjAlb.CodiceComune = CInt(Me.ComboBox1.Text.Substring(0, 5))
        AlbColl = Read_record.CaricaAlberghi(ObjAlb)
        RecordAlberghi = New DataSet1.RecordAlberghiDataTable
           For A As Int32 = 0 To AlbColl.Count - 1
            RecordAlberghiMyRow = CType(RecordAlberghi.NewRow, DataSet1.RecordAlberghiRow)
            RecordAlberghiMyRow.CodiceAlbergo = AlbColl.Item(A).CodiceAlbergo
            RecordAlberghiMyRow.CodiceComune = AlbColl.Item(A).CodiceComune
            RecordAlberghiMyRow.NomeAlbergo = AlbColl.Item(A).Descrizione
            RecordAlberghiMyRow.Categoria = AlbColl.Item(A).Categoria
            RecordAlberghi.Rows.Add(RecordAlberghiMyRow)
        Next A
        ds.Merge(RecordAlberghi)
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "RecordAlberghi"
        Me.TextBox1.Focus()
    End Sub