Как прочитать csv файл с разделителем 'точка с запятой'?

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Администратор\Desktop\; Extended Properties='text;HDR=Yes;FMT=Delimited';")
da.SelectCommand = New OleDb.OleDbCommand("Select * from [27 11 16.csv]", cn)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim CSV() As String = IO.File.ReadAllLines("27 11 16.csv", System.Text.Encoding.Default)
        For Each c In CSV(0).Split(";")
            DataGridView1.Columns.Add(c, c)
        Next
        For i = 1 To CSV.Length - 1
            DataGridView1.Rows.Add(CSV(i).Split(";"))
        Next
    End Sub

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Администратор\Desktop\; Extended Properties='text;HDR=Yes;FMT=Delimited(;)';"

Dim sep As String = My.Computer.Info.InstalledUICulture.TextInfo.ListSeparator

        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Администратор\Desktop\; Extended Properties='text;HDR=Yes;FMT=Delimited;'")

    Public Function GetCSVDataTable(FilePath As String, ColumnSeparator As String, DecimalSeparator As String) As DataTable
        Dim Path = IO.Path.GetDirectoryName(FilePath)
        Dim FileName = IO.Path.GetFileName(FilePath)
        Dim SchemaPath = IO.Path.Combine(Path, "Schema.ini")
        Dim SchemaText = String.Format("[{0}]{3}Format=Delimited({1}){3}DecimalSymbol={2}", FileName, ColumnSeparator, DecimalSeparator, vbCrLf)
        Try
            IO.File.WriteAllText(SchemaPath, SchemaText, System.Text.Encoding.Default)
            Using Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Extended Properties='text;HDR=YES'")
                Dim da As New OleDb.OleDbDataAdapter("Select * from [" & FileName & "]", Conn)
                Dim DT As New DataTable : da.Fill(DT) : Return DT
            End Using
        Catch ex As Exception
            MsgBox(ex.Message.ToArray)
            Return Nothing
        Finally
            IO.File.Delete(SchemaPath)
        End Try
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.DataSource = GetCSVDataTable(Application.StartupPath & "\File.csv", ";", ".")
    End Sub