Диаграмма по данным из файла - Visual Basic .NET

Формулировка задачи:

Всем доброго здоровичка!!! Помогите пожалуйста с задачкой: Имеется текстовый файл (прилагается). Открывается с помощью OFD. Его содержимое необходимо записать в DataGridView и по каждой колонке построить диаграммы. Строки DGV добавляются, наверное, в зависимости от количества строк в файле. Просто файл может быть большим. Для открытия файла:

                    Листинг программы
                
Dim Docs As String = "Документы|*.doc?;*.xls?;*.odt;*.txt"
        Dim OFD As New OpenFileDialog With {.Filter = Docs, .Multiselect = False}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            For Each File As String In OFD.FileNames
 
           ====   Что здесь записать???
 
            Next
        End If

Для диаграммы наверное Построить гистограмму chart Не могу разобраться... Ещё он ругается на строку "Imports System.Windows.Forms.DataVisualization.Charting" Спасибо заранее!!!

Решение задачи: «Диаграмма по данным из файла»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Dim tb As DataTable = createTable()
    DataGridView1.DataSource = tb
    DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
    Chart1.DataBindTable(tb.DefaultView)
    Chart1.Series(0).IsVisibleInLegend = False
    Chart1.Series(1).IsXValueIndexed = True
End Sub
Private Function createTable() As DataTable
    Dim file As String = "pr.txt"
    Dim path As String = "C:\06"
    Dim tbb = New DataTable("myData")
    Try
        If IO.File.Exists(IO.Path.Combine(path, file)) Then
            Dim hh As String = Chr(34)
            Dim ConStr As String = _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=" & _
                hh & "Text;HDR=No;FMT=Delimited" & hh & ";"
            Using conn As New OleDb.OleDbConnection(ConStr)
                conn.Open()
                Dim da As New OleDb.OleDbDataAdapter("Select * from " & file, conn)
                da.Fill(tbb)
            End Using
        End If
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
    Return tbb
End Function