Public Class frmDBEdit
 
    Dim dt As New DataTable
    Dim bs As New BindingSource With {.DataSource = dt}
 
    Dim tbo As New TextBox With {.Parent = Me}
 
    Dim WithEvents btnNext As New Button With _
        {.Parent = Me, .Top = 40, .Text = ">"}
    Dim WithEvents btnPrevious As New Button With _
        {.Parent = Me, .Top = 40, .Left = 100, .Text = "<"}
    Dim WithEvents btnNew As New Button With _
        {.Parent = Me, .Top = 40, .Left = 180, .Text = "Neu"}
 
    Private Sub frmDBEdit_Load(ByVal sender As System.Object,
                      ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("Kunde")
        dt.Rows.Add("Hans Meier")
        dt.Rows.Add("Kurt Müller")
        tbo.DataBindings.Add(New Binding("Text", bs, "Kunde"))
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnNext.Click
 
        If bs.Position < bs.Count - 1 Then bs.Position += 1
    End Sub
 
    Private Sub btnPrevious_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnPrevious.Click
 
        If bs.Position > 0 Then bs.Position -= 1
    End Sub
 
    Private Sub btnNew_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnNew.Click
 
        bs.AddNew()
    End Sub
End Class