Actualicar registros de una tabla de access.

Hola Juanito01.
Mira tengo un problemilla con una base de datos ACCESS 2000.
La cuestión es que tengo una tabla referente a unos socios. Estos tienen un número de socio. Dentro de esta tabla habrá socios de alta y otros de baja. Los que se den de baja los selecciono en un formulario y en la casilla de verificación "Baja" la pongo a true y punto. Lo que necesito es que desde un formulario con un botón, actualizar el número de socio de las Altas, ya que si por ejemplo en la tabla, el socio nº 4 se da de baja, en Altas aparecería así:
Socio 1
Socio 2
Socio 3
Socio 5
Socio 6
...
Al renumerar este campo, tendría que aparecer esto:
Socio 1
Socio 2
Socio 3
Socio 4
Socio 5, Es decir el socio nº 5 pasaría a ser el 4 y así sucesivamente. No se si me explico.
El campo num_socio es numérico y no es clave principal.
El código que yo le he puesto al botón es este:
Option Compare Database
Option Explicit
Dim dbManejoWord As DAO.Database
Dim mitabla As DAO.Recordset
Set dbManejoWord = CurrentDb()
Set mitabla = dbManejoWord.OpenRecordset("Tb_Cooperativistas")
Dim contador As Integer
Private Sub Comando4_Click()
mitabla.MoveFirst
mitabla.Edit
For contador = 1 To mitabla.Fields.Count - 1
mitabla.Edit
mitabla![num_coop] = mitabla![num_coop] + 1
mitabla.Update
mitabla.MoveNext
Next contador
End Sub
Aunque no me funciona
¿Sabes cómo sacarlo?
Gracias por adelantado...