Visual Basic - update no funciona

Hola amigos espero que alguien pueda ayudarme:
hecho a funcionar este código y resulta que descubri que cada que encuentra un update el programa se detiene o se sale, no sé qué esté funcionando mal; doy de baja a un trabajador y avanza el código en partes, o sea, la primera vez se detiene en el primer update, lo quiero dar de baja otra vez y ahora se detiene en el segundo y así. los msgbox son solo una referencia. Alguien puede hecharme una mano?
de Antemano muy agradecido.

Dim fil, n, cd, t, cu, pto, fec, nuevo
nuevo = InputBox("NUEVO CENTRO DE TRABAJO: ")
n = Rs("nombre")
fil = Rs("filiacion")
'MsgBox "Nombre y filiacion " & n & " -- " & fil
'''' dar de baja de claves
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From claves ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!nombre = fil Then
MsgBox "encontré a: " & Rs!nombre
Rs.Edit
Rs.Delete
Rs.Update
End If
Rs.MoveNext
If Rs.EOF Then MsgBox "" & fil & " ya no tiene ninguna clave...", vbInformation, "BAJA DE CLAVES"
Loop
Rs.Close
MsgBox "terminé de claves y voy a incidencias"
''''dar de baja de incidencias
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From incidencias ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
MsgBox "ya estoy en incidencias, n tiene el nombre: " & n
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!nombre = nom Then
Rs.Edit
Rs.Delete
Rs.Update
End If
Rs.MoveNext
If Rs.EOF Then MsgBox "" & fil & " ya no tiene ninguna incidencia...", vbInformation, "BAJA DE CLAVES"
Loop
Rs.Close
'''''dar de baja de personal
MsgBox "bajas de personal"
selecbaseDatos
Rs.FindFirst "nombre = '" & n & "'"
cd = Rs("ciudad")
t = Rs("tel")
dom = Rs("domicilio")
pto = Rs("funcion")
Rs.Delete
Rs.Update
Rs.Close
''''''dar de alta en bajas
MsgBox "ya llegué a BAJAS"
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From bajas ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
Rs.AddNew
Rs("nombre") = n
Rs("rfc") = fil
Rs("lugar") = cd
Rs("telefono") = t
Rs("domicilio") = dom
Rs("puesto") = pto
Rs("fechabaja") = Date
Rs("nuevoct") = nuevo
Rs.Update
Unload Me

Tienes errores de concepto.
Con Edit editas un registro para modificarlo, y una vez modificado con Update lo guardas.
El Update también se usa despues de un AddNew para guardar los datos.
El Delete borra el registro actual sin Edit ni Update.

Elemental mi querido Pedro Luis. Cosas tan simples que a un servidor como novato se le pasan a veces. Es bueno contar con uds expertos para que nos saquen de los baches.
Nuevamente agradecido, voy a probar tu opción.
Paco