Public Class frmBinding
 
    Dim dataset1 As New DataSet
    Dim WithEvents button9 As New Button With {.Parent = Me}
    Dim WithEvents listbox1 As New ListBox With {.Parent = Me, .Top = 100, _
      .Height = 50}
 
    Dim datagridview1 As New DataGridView With {.Parent = Me, .Top = 150, _
      .Height = 200}
 
    Dim bs As New BindingSource
 
    Dim tn As String = "11"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
          System.EventArgs) Handles MyBase.Load
 
        dataset1.Tables.Add(tn)
        dataset1.Tables(tn).Columns.Add("blabla")
        listbox1.Items.Add(tn)
        datagridview1.DataSource = bs
 
    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(tn)
        dataset1.Tables(tn).Columns.Add("hallo")
        dataset1.Tables(tn).Columns.Add("hallo1")
 
 
        Debug.WriteLine(dataset1.Tables(tn).Columns(0).ColumnName) _
          'Ausgabe: "hallo"
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal _
  e As System.EventArgs) Handles listbox1.SelectedIndexChanged
        bs.DataMember = CType(listbox1.SelectedItem, String)
        bs.ResetBindings(True)
        bs.DataSource = dataset1
    End Sub
End Class