Dim _dt As DataTable
Dim _drow As DataRow
Dim _datacol As DataColumn
 
Dim _string2import As String
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.ProgressBar1.Minimum = 0
        Me.ProgressBar1.Maximum = 11000
        Me.ProgressBar1.Step = 1
 
 
        _dt = New DataTable()
 
        _datacol = New DataColumn()
        With _datacol
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "Spalte 1"
        End With
        _dt.Columns.Add(_datacol)
 
        _datacol = New DataColumn()
        With _datacol
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "Spalte 2"
        End With
        _dt.Columns.Add(_datacol)
 
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ReadFile2Datatable()
    End Sub
 
    Private Sub ReadFile2Datatable()
 
        Dim _datei As System.IO.StreamReader = New System.IO.StreamReader( _
          "C:\myDatei.txt")
 
        Do While _datei.Peek >= 0
 
            _string2import = _datei.ReadLine
 
            _drow = _dt.NewRow
 
            _drow("Spalte 1") = _string2import.Substring(0, 3)
            _drow("Spalte 2") = _string2import.Substring(10, 5)
 
            _dt.Rows.Add(_drow)
            Me.ProgressBar1.PerformStep()
        Loop
 
        _datei.Close()
 
        Me.DataGrid1.DataSource = _dt
 
 End Sub