ご回答ありがとうございます。

csvファイル自体は体重やBMIの簡単な表で文字コードはShift_JISで改行や「,」を含まないです。
また、csvファイルは下記のコードで読み取り、表示させることが出来たのですが、これだとあらかじめ指定したファイル名しか選択することができません。 どのようなコードを用いればファイルを選択したうえで表示させることができるでしょうか?

Public Class Cls_CSV2Table

        Public Function CsvToTable(d_FilePass As String) As DataTable

            'フルパスからディレクトリのみ取り出す
            Dim csv_Dir As String = System.IO.Path.GetDirectoryName(d_FilePass)
            'フルパスからディレクトリのみ取り出す
            Dim csv_File As String = System.IO.Path.GetFileName(d_FilePass)

            '接続文字列
            Dim conString As String =
            "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
            + csv_Dir + ";Extensions=asc,csv,tab,txt;"
            Dim con As New System.Data.Odbc.OdbcConnection(conString)

            Dim commText As String = "SELECT * FROM [" + csv_File + "]"
            Dim my_Da As New System.Data.Odbc.OdbcDataAdapter(commText, con)

            'DataTableに格納する
            Dim my_Dt As New DataTable
            my_Da.Fill(my_Dt)

            Return my_Dt

        End Function


    End Class
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim class_csv2table As New Cls_CSV2Table
        Dim csv_Daityou As DataTable = class_csv2table.CsvToTable(”D:\BMI.csv")





        DataGridView1.AutoGenerateColumns = True ' ここを False にすると表示しない
        DataGridView1.DataSource = csv_Daityou

    End Sub