Dim dt As New DataTable("Users")
        Dim cn As New OleDb.OleDbConnection("DEIN_CONN_STRING")
        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Users", cn)
        da.Fill(dt)
        Me.DataGrid1.DataSource = dt
        Me.TextBox1.DataBindings.Add("Text", dt, "Vorname")
        Me.TextBox2.DataBindings.Add("Text", dt, "Nachname")

        ' vor
        Me.BindingContext(dt).Position += 1
        ' zurück
        Me.BindingContext(dt).Position -= 1
        ' anfang
        Me.BindingContext(dt).Position = 0
        ' ende
        Me.BindingContext(dt).Position = Me.BindingContext(dt).Count