Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtArquivo.Text = Path.GetFullPath(Path.Combine(Application.StartupPath, "..\..")) + "\Dados.csv"
        txtArquivo.Select(0, 0)
 End Sub

Private Sub btnAbrir_Click(sender As Object, e As EventArgs) Handles btnAbrir.Click
        ' Obtem os dados do arquivo CSV
        Dim values As String(,) = CarregarCsv(txtArquivo.Text)
        Dim numero_linhas As Integer = values.GetUpperBound(0) + 1
        Dim numero_colunas As Integer = values.GetUpperBound(1) + 1

        ' Exibe os dados 
        ' Cria o cabeçalho
        ' Para o exemplo assumimos que a primeira linha
        ' contém os nomes dad colunas
        gdvDados.Columns.Clear()
        For coluna As Integer = 0 To numero_colunas - 1
            gdvDados.Columns.Add(values(0, coluna), values(0, coluna))
        Next

        ' Adiciona os dados no datagridview
        For linha As Integer = 1 To numero_linhas - 1
            gdvDados.Rows.Add()
            For coluna As Integer = 0 To numero_colunas - 1
                gdvDados.Rows(linha - 1).Cells(coluna).Value = values(linha, coluna)
            Next
        Next

        'Torna todas as colunhas autosize.
        For Each coluna As DataGridViewColumn In gdvDados.Columns
            coluna.AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
        Next
    End Sub

Private Function CarregarCsv(nomeArquivo As String) As String(,)
        ' Obtem o texto do arquivo
        Dim arquivoCSV As String = File.ReadAllText(nomeArquivo)

        ' Obtém cada linha do arquivo
        arquivoCSV = arquivoCSV.Replace(ControlChars.Lf, ControlChars.Cr)
        Dim linhas As String() = arquivoCSV.Split(New Char() {ControlChars.Cr}, StringSplitOptions.RemoveEmptyEntries)

        ' Ve quantas linhas e colunas existem
        Dim numeroLinhas As Integer = linhas.Length
        Dim numeroColunas As Integer = linhas(0).Split(","c).Length

        ' Aloca dados no array
        Dim valores As String(,) = New String(numeroLinhas - 1, numeroColunas - 1) {}

        ' Carrega o array
        For vetor As Integer = 0 To numeroLinhas - 1
            Dim linha_vetor As String() = linhas(vetor).Split(","c)
            For c As Integer = 0 To numeroColunas - 1
                valores(vetor, c) = linha_vetor(c)
            Next
        Next

        ' Retorna os valores
        Return valores
    End Function

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas