Dim custAdapter As MySqlDataAdapter = New MySqlDataAdapter( _
                            "Select servizi.IDAnagrafica,Date_Format(servizi.Dal, '%d/%m/%Y') As Dal," & _
                            "Concat(reparti.Reparto ,'    ', IfNull(servizi.Sede, '')) AS Reparto,operative.Descrizione,servizi.Valutazione,operative.Abbreviata,servizi.IDReparto,servizi.Status,servizi.PercTrascinamento" & _
                            " From operative Inner Join servizi On operative.Abbreviata = servizi.Tipo Inner Join reparti On reparti.ID = servizi.IDReparto" & _
                            " Where servizi.IDAnagrafica = '" & TextBox1.Text & "' Order By servizi.Dal", Connection)
        Dim Servizi As DataSet = New DataSet()
        custAdapter.Fill(Servizi, "Servizi")
  Dim lc As Integer = ListView7.Items.Count - 1
       For i As Integer = 0 To lc
            Dim r As Record, li As ListViewItem = ListView7.Items(i)
            r.ID = li.SubItems(0).Text
            If i = 0 Then
                r.DataIni = DateTime.Parse(li.SubItems(1).Text)
            Else
                r.DataIni = DateTime.Parse(li.SubItems(1).Text)
            End If
            If i < lc Then
                r.DataFin = (DateTime.Parse(ListView7.Items(i + 1).SubItems(1).Text)).Date.AddDays(-1)
            Else
                r.DataFin = ConvertData.GetDataForMySql(MaskedTextBox4.Text)
            End If
next