Private Sub DepotAuslesen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles DepotAuslesen.Click
      'Dataset definieren
      Dim dataset As New DataSet("Depot")
 
      'Tabelle im Dataset definieren
      Dim dt_aktien As New DataTable("Aktien")
      dataset.Tables.Add(dt_aktien)
 
      'Spalten hinzufügen
      dt_aktien.Columns.Add("Bezeichnung", GetType(String))
      dt_aktien.Columns.Add("WKN", GetType(String))
      dt_aktien.Columns.Add("Anzahl", GetType(Double))
      dt_aktien.Columns.Add("Kurs", GetType(Double))
      dt_aktien.Columns.Add("Depotwert", GetType(Double))
 
      'Tabelle mit Daten füllen
      Dim linde_aktie(4) As Object
      linde_aktie(0) = "Linde AG"
      linde_aktie(1) = "648300"
      linde_aktie(2) = 1006
      linde_aktie(3) = 84.3
      linde_aktie(4) = 1000.5
 
      'DataGrid mit Dataset koppeln
      Depot.DataSource = dataset
 
End Sub