Public Class frmEditTable
 
    Dim dt As New DataTable
    Dim WithEvents bv As New BindingNavigator(True) With {.Parent = Me}
    Dim bs As New BindingSource
 
    Dim tbo1 As New TextBox With {.Parent = Me, .Top = 50}
    Dim tbo2 As New TextBox With {.Parent = Me, .Top = 100}
 
    Private Sub frmEditTable_Load(sender As System.Object, _
                        e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("Spalte1", GetType(String))
        dt.Columns.Add("Spalte2", GetType(String))
        bs.DataSource = dt
        bv.BindingSource = bs
 
        tbo1.DataBindings.Add(New Binding("Text", bs, "Spalte1", True))
        tbo2.DataBindings.Add(New Binding("Text", bs, "Spalte2", True))
    End Sub
 
End Class