Visual Basic - PLEASE HELP!!!!

A VER SI PUEDEN CON ESTO:
TENGO EL SIGUIENTE PROBLEMA, UNA BASE DE DATOS EN LA CUAL TENGO LOS SIGUIENTES CAMPOS (MEDIANTE DAO)

NUMERO NOMBRE APELLIDO
1 JUAN SSSS
2 ÈDR XXX
3 XXX XXXX
4 XXX XXXXX
(EL PROBLEMA QUE TENGO ES QUE CUANDO BORRO ALGUN REGISTRO, POR EJEMPLO SI BORRO EL 3, ME QUEDAN LOS SIGUIENTES REGISTROS 1,2.4,ETC. ........LA PREGUNTA ES LA SIGUIENTE COMO TENGO QUE HACER O CUAL ES EL CODIGO PARA QUE DESPUES QUE ME BORRE CUALQUIER REGISTRO ME ACUTALICE EL CAMPO NUMERO.
DESDE YA MUCHAS GRACIAS

Esta pregunta ya te la conteste no te funcion o no le entendistes???te lo pongo de nuevo:
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

Otra vez la respuesta apareció en cualquier lado. Aquí te la mando nuevamente

Ale: Lo primero que debes hacer es hacegurarte que el campo Numero no sea autonumérico. Si no lo es, puedes utilzar algo así
Dim k as long
With Rds 'Tu recordset
if .RecordCount<1 then exit sub
.MoveLast
.MoveFirst
For k =1 to RecordCount
.Fields("Numero").Value = k
.MoveNext
Next k
End With

Saludos Ruri

El código que te envié colocalo después de borrar
P.D. hacegurarte se escribe asegurarte

Saludos Ruri