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 = dtLista.Rows.Count - 1
       For i As Integer = 0 To lc
            Dim r As Record, li AsDataRow = dtLista.Rows(i)
            If i = 0 Then
                r.DataIni = DateTime.Parse(dtLista.Rows(1)("Dal"))
            Else
                r.DataIni = DateTime.Parse(dtLista.Rows(1)("Dal"))
            End If
            If i < lc Then
                r.DataFin = (DateTime.Parse(dtLista.Rows(0)("Dal")(i + 1).SubItems(1).Text)).Date.AddDays(-1) <<<<<<QUi da questo errore Impossibile trovare il membro pubblico 'SubItems' nel tipo 'Char'.
            Else
                r.DataFin = ConvertData.GetDataForMySql(Now.ToShortDateString)
            End If
next