'Allgemeiner Bereich
 
Dim _dt as Datatable
Dim _datarow as Datarow
Dim _datacol as Datacolumn
 
Dim _string2import as string
 
Private Sub Form_Load([...])
'Im Form_Load wird erst die Datatable mit zwei Spalten bestückt
 
   _datacol = new DataColumn()
   with _datacol
       .DataType = System.Type.GetType("System.String")
       .Columname = "Spalte 1"
   end with
   _dt.Columns.Add(_datacol)
 
   _datacol = new DataColumn()
   with _datacol
       .DataType = System.Type.GetType("System.String")
       .Columname = "Spalte 2"
   end with
   _dt.Columns.Add(_datacol)
 
End Sub
 
Private Sub ReadFile2Datatable([...])
 
'Dann öffne ich die Datei mittels eines StreamReaders
Dim _datei as As System.IO.StreamReader = New System.IO.StreamReader( _
  "C:\myDatei.txt")
 
'Und lese die Datei komplett ein
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)
Loop
 
_datei.Close()
 
me.datagrid1.DataSource = _dt
 
End Sub