Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
        With DataSet11.Tables("Ansprechpartner").Rows(BindingContext( _
        DataView1).Position)
            .Item("Vorname") = TextBox2.Text
            .Item("Name") = TextBox1.Text
        End With
        OleDbDataAdapter1.Update(DataSet11, "Ansprechpartner")
        Me.BindingContext(DataView1).EndCurrentEdit()
    End Sub