Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=Firma.mdb;")
Dim da As New OleDbDataAdapter("SELECT * FROM Artikel", conn)
Dim cmdB As New OleDbCommandBuilder(da)
Dim ds As New DataSet
Dim dt As DataTable
 
 
'*****************************   Neue Datatable erzeugen
Dim aTable As New DataTable("Artikelliste")
ds.Tables.Add("Artikelliste")
 
'*****************************   Spalten erzeugen
Dim Counter As Integer
Dim aColumn As DataColumn
 
For Counter = 0 To 4
        aColumn = New DataColumn("Column " & Counter.ToString())
         ds.Tables("Artikelliste").Columns.Add(aColumn)
Next
 
'*****************************   Streamreader
 
Dim myReader As New System.IO.StreamReader("c:\TDprod.csv")
Dim mystring As String
mystring = myReader.ReadLine
 
'*****************************   Datenzeilen durchlaufen
While myReader.Peek <> -1
 
'*****************************   Datenzeile lesen
mystring = myReader.ReadLine
 
'*****************************   Zeile aufteilen und in Spalten abfüllen
ds.Tables("Artikelliste").Rows.Add(mystring.Split(Chr(9)))
End While
 
'*****************************   Datagrid
DataGrid1.SetDataBinding(ds, "Artikelliste")
 
Try
        da.Update(ds, "Artikelliste")
        Beep()
Catch ex As Exception
         MsgBox(ex.Message)
End Try