Error "El uso de propiedad no es valido"

[Lexther]

Buenas,

Tengo una tabla creada en Access, llamada "Clientes" con un campo autonumerico llamado "ClientesID", tengo tambien un formulario creado en base a esta tabla, estoy intentando mediante ADO,SQL y VB, (De un codigo que encontre en una pagina, que supuestamente soluciona un problema identico al mio) que al eliminar un registro, los demas registros se acomoden segun su lugar numerico, por ejemplo, si de los registros 1,2,3,4,5,6 elimino el registro 3, el 4 pase a ser el 3, el 5 el 4 y el 6 el 5, es decir, conservar correlativos luego de eliminar.

Este es el codigo encontrado.

Código vb:

Dim sql$, x As Long, y As Long
Dim rst As ADODB. Recordset
 
Set rst = New ADODB. Recordset
 
Sql$ = "Select id From Tabla Order By Id"
 
With rst
. CursorLocation = adUseClient
. CursorType = adOpenKeyset
. LockType = adLockOptimistic
. Open sql$, CurrentProject. Connection, , , adCmdText
End With
 
X = rst. RecordCount
rst. MoveFirst
 
For y = 1 To x
rst. Fields! Id = y
rst. Update
rst. MoveNext
Next y
 
Set rst = Nothing
 

Sin embargo en el fragmento rst. Fields! Id = y me dice "Uso de propiedad no es valido".