ObjC59.CodAlbergo = Convert.ToInt32(NAlb.Rows(0).Item("Codice"))
        ObjC59.CodComAlbergo = Convert.ToInt32(NAlb.Rows(0).Item("CodComune"))
        ObjC59.CodStato_Res = Convert.ToInt32(Me.ListView2.SelectedItems(0).SubItems(2).Text)
        ObjC59.CodComune = Convert.ToInt32(Me.ListView2.SelectedItems(0).SubItems(4).Text)
        ObjC59.CodiceGruppo = Convert.ToInt32(Me.ListView2.SelectedItems(0).SubItems(5).Text)
        C59Coll = Read_record.CaricaDateArrivo(ObjC59)
        Me.ListView5.Items.Clear()
        Me.ListView5.BeginUpdate()
        For i As Integer = 0 To C59Coll.Count - 1
            REM ==========Carica dati in listview senza lettura nel db==========
            litem = ListView5.Items.Add(CStr(C59Coll.Item(i).NumeroSchedina))
            Sublist = litem.SubItems.Add(C59Coll.Item(i).DataArrivo)
            Sublist = litem.SubItems.Add(C59Coll.Item(i).StatoResidenza)
            Sublist = litem.SubItems.Add(C59Coll.Item(i).ComuneResidenza & " " & C59Coll.Item(i).ProvinciaResidenza)
            Sublist = litem.SubItems.Add(C59Coll.Item(i).DescrizioneGruppo)
            REM ================================================================
        Next i
        Me.ListView5.EndUpdate()