Public Class frmDGV
 
    Dim dgv As New DataGridView With {.Parent = Me, .Height = 260}
    Dim ds As New DataSet
    Dim bs As New BindingSource
    Dim tbo As New TextBox With {.Parent = Me, .Top = 310}
    Dim WithEvents cbo As New CheckBox With {.Parent = Me, .Text = "Q ??", .Top _
      = 280}
 
    Private Sub frmDGV_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Me.Height = 400
 
        'Zwei Tabellen mit der gleichen Spaltenbezeichnung
        ds.Tables.Add("Q")
        ds.Tables.Add("R")
        With ds.Tables("Q")
            .Columns.Add("Name")
            .Rows.Add("Q1")
            .Rows.Add("Q2")
        End With
 
        With ds.Tables("R")
            .Columns.Add("Name")
            .Rows.Add("R1")
            .Rows.Add("R2")
        End With
 
        cbo.Checked = True
    End Sub
 
 
    Private Sub Bind(Tablename As String)
        'Tabelle gemäß Parameter Tabellenname binden
        Dim dt As DataTable = ds.Tables(Tablename)
        bs.DataSource = dt
        dgv.DataSource = bs
        tbo.DataBindings.Clear()
        tbo.DataBindings.Add("Text", bs, "Name")
    End Sub
 
 
    Private Sub cbo_CheckedChanged(sender As Object, _
        e As System.EventArgs) Handles cbo.CheckedChanged
 
        Dim tn As String 'Tabellenname wählen
        If cbo.Checked Then tn = "Q" Else tn = "R"
        Bind(tn)
    End Sub
End Class