Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
  Button2.Click
 
OpenFileDialog1.Filter = "CSV Files (*.csv*)|*.csv"
    OpenFileDialog1.FileName = "*.*"
 
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
 
        DataGridView2.Rows.Clear()
 
        Dim TextFieldParser1 As New _
          Microsoft.VisualBasic.FileIO.TextFieldParser(OpenFileDialog1.FileName)
 
        TextFieldParser1.Delimiters = New String() {","}
 
        While Not TextFieldParser1.EndOfData
            Dim Row1 As String() = TextFieldParser1.ReadFields()
 
            If DataGridView2.Columns.Count = 0 AndAlso Row1.Count > 0 Then
                Dim i As Integer
 
                For i = 0 To Row1.Count - 1
                    DataGridView2.Columns.Add("Column" & i + 1, "Column" & i + _
                      1)
                Next
            End If
 
            DataGridView2.Rows.Add(Row1)
        End While
 
    End If
End Sub