Private Sub record_update_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles record_update.Click
 
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        Try
            conn.Open()
            dblPos = Me.BindingContext(objDataView).Position
            Dim row As DataRow = ds.Tables("Adressbuch").Rows(dblPos)
            With row
                .Item("Name") = Name_value.Text
                .Item("Vorname") = Vorname_value.Text
                .Item("Strasse") = Strasse_value.Text
                .Item("PLZ") = PLZ_value.Text
                .Item("Ort") = Ort_value.Text
                .Item("Geburstag") = Geburstag_value.Text()
                .Item("Telefonnummer") = Telefonnummer_value.Text
                .Item("Telefonnummer2") = Telefonnummer2_value.Text
                .Item("Handy") = Handy_value.Text
                .Item("Handy2") = Handy2_value.Text
                .Item("Email") = Email_value.Text
                .Item("Email2") = Email2_value.Text
                .Item("Email3") = Email3_value.Text
            End With
            da.Update(ds, "Adressbuch")
            MessageBox.Show("Datensatz " & Name_value.Text & _
         " geändert!!!!", "Geänderter Datensatz", MessageBoxButtons.OK, _
         MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
               MessageBoxIcon.Exclamation)
 
        Finally
            conn.Close()
        End Try
    End Sub