Visual Basic - Problemas actualizando tabla

Hola gente! Tengo el siguiente problema:

Cuando intento actualizar los datos de una tabla, en la que recupero un dato de otra, me da el siguiente error: "No se puede borrar esa fila porque hay referencias de él", cuando lo que estoy haciendo es actualizando, modificando vamos. ¿Que puedo estar haciendo mal?

Mi código es el siguiente:

Private Sub modificar()
On Error GoTo errores
Dim situacion As Single

ado_principal.Recordset!codigo = txt_codigo

If txt_nombre.Text = "" Then
MsgBox "Algunos campos obligatorios están en blanco", vbInformation, "¡Aviso!"
txt_codigo.SetFocus
Else
ado_principal.Recordset!nombre = txt_nombre
If Len(txt_idPuerto) > 0 Then ado_principal.Recordset!puerto = txt_idPuerto

ado_principal.Recordset.Update '*************** El error me da aquí **************
poner_botones
modo_edicion (False)
flag_refrescar = True
Form_Activate
End If

Exit Sub
errores:
MsgBox "Error añadiendo el registro: " & mensajesError(Err)
End Sub

Tengo una tabla que tiene una clave foránea que hace refencia al código de esta tabla, pero el código no lo modifico, tan sólo modifico el nombre y el puerto (código que recupero desde otra tabla), puede ser debido a eso? Si es así, como lo soluciono?

Gracias de antemano por vuestras respuestas

Hay muchas posiblidades... tienes q revisar el tipo de cursor q usas.. y el tipo de bloqueo.. esa puede ser una... Cursor Dinamico y Bloqueo Persistente...

por ello da el error de la mayoria de las acualizaciones de datos..