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 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)
    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
 
        datagridview1.DataSource = dataset1
        datagridview1.DataMember = CType(listbox1.SelectedItem, String)
    End Sub
End Class