Dim ds1 As New DataSet
        Dim ds2 As New DataSet
 
        Dim bs As New BindingSource With {.DataSource = ds1}
        Me.DataGridView1.DataSource = bs
 
        ds2.Tables.Add("Table1")
        With ds2.Tables(0)
            .Columns.Add("Spalte1")
            .Columns.Add("Spalte2")
            .Columns.Add("Spalte3")
            .Rows.Add("Wert1", "Wert2", "Wert3")
        End With
 
        ds1 = ds2