Grafico CHART con datatable

Buongiorno a tutti,
ho un datatable contenente prenotazioni ferroviarie cosi composto :

PARTENZA-ARRIVO-NOME-COGNOME-TARIFFA
roma-milano-luca-bianchi-abbonamento 1a
roma-milano-luca-rossi-abbonamento 2a
roma-milano-luca-verdi-economy
roma-milano-andrea-bianchi-convenzione
roma-milano-giovanni-bianchi-supereconomy
roma-milano-federico-bianchi-abbonamento 1a
roma-milano-paolo-bianchi-abbonamento 1a
roma-milano-emanuele-bianchi-abbonamento 2a

Vorrei mettere in un grafico le varie tariffe.
con questo codice creo il grafico

Dim risul As DataRow()
			Dim risultato As DataRow()
			Dim query As String = ""
			Dim listboxtariffax As New ArrayList
			Dim listboxtariffay As New ArrayList
				Dim sort As String = ""
			Dim tariffa As Data.DataTable
			listboxtariffax.Clear()
			listboxtariffay.Clear()
			query = "Partenza ='" & ComboBox1.Text & "'"
			sort = "Offerta"
			risultato = trenodatatable.Select(query, sort)
			If risultato.Count > 0 Then
				tariffa = risultato.CopyToDataTable.DefaultView.ToTable(True, "Offerta") 'ottengo tutte le destinazioni la cui partenza è la stazione selezionata nella combobox,
				For Each element As DataRow In tariffa.Rows
					query = "Offerta ='" & element.Item(0).ToString & "' and Partenza ='" & ComboBox1.Text & "'"
					risul = trenodatatable..Select(query, sort)
					If risul.Count > 1 Then
						listboxtariffax.Add(element.Item(0).ToString & "   " & risul.Count.ToString)
						listboxtariffay.Add(risul.Count)
					End If
				Next
				Chart4.Series(0)("PieLabelStyle") = "Disabled"
				Chart4.Series(0).Points.DataBindXY(listboxtariffax, listboxtariffay)

Tenendo conto che il datatable può avere anche 1000 righe vorrei creare un aggregatore di tariffe come excel :
ovvero prendere le prime 2 o 3 e poi il resto mettere tutto in ALTRO....per evitare di ingolfare il grafico
come si potrebbe gestire la cosa ?
grazie