Problema con una transacción "Actualmente este elemento está bloqueado"

[SuperPinwi]

Hola amigos,

Estoy trabajando con transacciones ahora por primera vez y tengo un pequeño problema, el cual parecen no ayudarme para nada ni los tutoriales sobre transacciones ni la información que he podido encontrar a través de la red.

El caso es que el problema viene a la hora de actualizar una base de datos. Lo hacía perfectamente antes de incluir transacciones pero ahora ya no lo hace porque salta una excepción con este error:

"No se puede actualizar; actualmente este elemento está bloqueado"

¿Sabéis alguna posible causa?

Gracias anticipadas

Pd: Aquí os dejo un fragmento del código por si sirve de ayuda:

Código:

'HILO ACTUALIZA BASE DE DATOS
    'descripción: se encarga de actualizar la base de datos cada cierto
    'tiempo, según un valor introducido por un usuario en un campo de 
    'texto
    Public Shared Sub EjecutaHiloActualizaBD()
        'Objeto que inicia la conexión a la base de datos
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\SuperPinwi\Mis documentos\Mis bases de datos\numeros\numeros.mdb")
        'Objeto que permite realizar conexiones con la base de datos
        Dim objAcciones As New OleDbCommand
        'Tabla de datos en la cual se almacenarán los datos de la base de datos
        Dim dt As DataTable
        'Objeto adaptador entre el código y la base de datos
        Dim objAdapter As OleDbDataAdapter = New OleDbDataAdapter
        'Objeto que permite actualizar la base de datos
        Dim OleDbUpdateCommand As OleDbCommand = New OleDbCommand
        'Variable que permite establecer datos
        Dim miDataSet As New DataSet
        'Variable de bucle
        Dim i As Integer
        'Para conocer el número de filas
        Dim n As Integer
        'Cadenas temporales para nombre y numero
        Dim sNombre As String
        Dim nNumero As Integer
        Dim idN As Integer
        'Variable temporal para el almacenamiento de filas de la base de datos
        Dim dr As DataRow
        'Variable de bucle que recorre las filas
        Dim fila As Integer
        'Variable temporal en la que se almacena el valor con el cual se ha de actualizar la base de datos
        Dim porcentaje2 As Integer
        'Variable utilizada para pasar a la fila siguiente de la base de datos
        Dim identificador As Integer
        'Variable de manejo de la transacción
        Dim Transaccion As OleDbTransaction
        'Dim Transaccion2 As OleDbTransaction

        Try
            'Se abre la conexión
            objConn.Open()
            objAdapter = New OleDbDataAdapter("SELECT * FROM numeros ORDER BY numero", objConn)
            'Se asigna un manejador al objeto de acciones y al objeto adaptador
            objAcciones.Connection = objConn
            'Inicio de la transacción
            Transaccion = objConn.BeginTransaction()
            OleDbUpdateCommand.Connection = objConn
            OleDbUpdateCommand.Transaction = Transaccion
            objAcciones.Transaction = Transaccion
            'Transaccion = objConn.BeginTransaction()
            'OleDbUpdateCommand.Connection = objConn
            objAdapter.UpdateCommand = OleDbUpdateCommand
            objAdapter.UpdateCommand.Transaction = Transaccion
            objAdapter.SelectCommand.Transaction = Transaccion
            dt = New DataTable
            objAdapter.Fill(dt)
            'Se guarda el número de filas de la base de datos en n
            n = dt.Rows.Count
            If n = 0 Then
                MessageBox.Show("No se ha encontrado ningún registro que coincida con la selección")
            Else
                'Controla que el valor que se ha introducido en el campo de texto sea numérico
                If IsNumeric(TxtBxPorcentaje.Text) = True Then
                    For Each dr In dt.Rows                        
                        idN = dr("ID")
                        'obtenemos el valor que se haya en el campo número de la fila actual de la base de datos
                        nNumero = dr("numero")
                        'hallamos el valor por el que se ha de sustituir lo que se encuentra en la fila actual
                        porcentaje2 = nNumero + TxtBxPorcentaje.Text
                        'Ejecutamos la consulta SQL de actualización de la base de datos
                        OleDbUpdateCommand.CommandText = "UPDATE Numeros SET numero = " & porcentaje2 & " WHERE ID = " & idN
                        OleDbUpdateCommand.ExecuteNonQuery() -- ERROR
                    Next
                Else
                    MessageBox.Show("El valor que ha introducido para actualizar la base de datos no es válido, recuerde que debe ser de tipo númerico", "Aviso")
                End If
                Transaccion.Commit()
                MessageBox.Show("BD Actualizada con éxito")
            End If
        Catch dcbx As DBConcurrencyException
            MessageBox.Show("Error de concurrencia " & Err.Description, "Información del sistema")
        Catch ex As Exception
            'en el caso de que haya algún problema, se muestra un aviso con la información del error
            Transaccion.Rollback()
            MessageBox.Show(Err.Description, "Información del sistema")
        Finally
            'Cierra la conexión
            objConn.Close()
        End Try
    End Sub