FMT=Delimited(;)

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim path As String = "C:\"
        Dim file As String = "bnn.csv"   'Dateiname bnn.txt bringt keine 
        ' Änderung
 
        Dim dt As New DataTable()
 
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & path & _
            ";Extended Properties='text;HDR=Yes;FMT=Delimited(;)'"
 
        Using conn As New OleDb.OleDbConnection(connString)
            Dim sql As String = "SELECT * FROM " + file
            Dim da As New OleDb.OleDbDataAdapter(sql, conn)
            da.Fill(dt)
        End Using
 
        dg.DataSource = dt
 
    End Sub
End Class