For i As Integer = 0 To C59Coll.Count - 1
            If C59Coll.Item(i).Tipostato = "A" Then
                For ncomp As Integer = 0 To C59Coll.Item(i).NumeroComponenti
                    Convert_DatiMyRow = CType(Convert_Dati.NewRow, Net.DataSet1.Convert_DatiRow)
                    Convert_DatiMyRow.CodiceAlbergo = C59Coll.Item(i).CodAlbergo
                    Convert_DatiMyRow.CodiceComAlbergo = C59Coll.Item(i).CodiceComAlbergo
                    conta += 1
                    Convert_DatiMyRow.Progschedina = conta
                    Convert_DatiMyRow.CodiceRegione = C59Coll.Item(i).CodiceRegione
                    Convert_DatiMyRow.CodiceProvincia = C59Coll.Item(i).CodiceProvincia
                    Convert_DatiMyRow.CodiceCategoria = C59Coll.Item(i).CodiceCategoria
                    Convert_DatiMyRow.Data_Arrivo = C59Coll.Item(i).DataElaborazione
                    Convert_DatiMyRow.CodiceStato = C59Coll.Item(i).CodStato_Res
                    Convert_DatiMyRow.CodiceComune = C59Coll.Item(i).CodComune
                    Convert_Dati.Rows.Add(Convert_DatiMyRow)
                Next
            ElseIf C59Coll.Item(i).Tipostato = "P" Then
 Dim myrow() As DataRow = Convert_Dati.Select("CodiceAlbergo='" & C59Coll.Item(i).CodAlbergo & "' AND CodiceComAlbergo ='" & C59Coll.Item(i).CodAlbergo & "' AND CodiceStato='" & C59Coll.Item(i).CodStato_Res & "' AND CodiceComune='" & C59Coll.Item(i).CodComune & "'")
                For ncomp As Integer = 0 To C59Coll.Item(i).NumeroComponenti
                    Convert_DatiMyRow.Data_Partenza = C59Coll.Item(i).DataElaborazione
                Next ncomp
            End If
        Next