Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        DataSet1.Tables.Add("11")
        DataSet1.Tables("11").Columns.Add("blabla")
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button9.Click
        DataSet1.Tables.RemoveAt(0)
 
        DataSet1.Tables.Add("11")
        DataSet1.Tables("11").Columns.Add("hallo")
        DataSet1.Tables("11").Columns.Add("hallo1")
 
        Debug.WriteLine(DataSet1.Tables("11").Columns(0).ColumnName)    _
          'Ausgabe: "hallo"
    End Sub

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
   e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = ListBox1.SelectedItem
    End Sub