Visual Basic - ACTUALIZAR AL BORRAR

TENGO EL SIGUIENTE PROBLEMA:
UNA BASE DE DATOS GYM (CON DAO)
Nº NOMBRE APELLIDO TEL
1 XXXXX XXXXXXX XXX
2 XXXX XXXXXX XXXX
3 XXXXXX XXXXXX XXXX
4 ETC.
EL PROBLEMA QUE TENGO ES QUE AL BORRAR CUALQUIER REGISTRO POR EJEMPLO SI BORRO EL REGISTRO 2 NO SE ME ACUTALIZA EL CAMPO Nº , ME QUEDA EL 1,3,4, ETC, SI ALGUIEN ME PUEDE DAR UNA MANO CON EL CODIGO SE LO AGRADECERIA.
SALUDOS DESDE ARGENTINA

Debe de existir una forma mas sencilla pero te pongo este ejemplo como alguna ayuda...saludos!!!
Private Sub cmdBorrar_Click()
Dim varBD As Database
Dim Rec As Recordset
Dim SQL As String
Dim I As Integer
'Despues de Eliminar tu tabla puedes hacer lo siguiente
'Esto se supone que ya lo tienes...te lo pongo para hacerlo completo el ejemplo
Set varBD = OpenDatabase(App.Path & "\BaseDatos.mdb")
Set Rec = varBD.OpenRecordset("Select * From TuTabla Order By Numero")
'Actualizamos el Campo Numero
Do While Not Rec.EOF
I = I + 1
SQL = "Update TuTabla Set Numero=" & I & " Where Numero =" & Rec!Numero & ""
varBD.Execute SQL
Rec.MoveNext
Loop
End Sub