Error "El uso de propiedad no es valido"

[Lexther]

Modifique el nombre del campo autonumerico y con este codigo tampoco funcionó:

Código vb:

Private Sub Eliminar_Click()
Dim sql$, x As Long, y As Long
Dim rst As ADODB.Recordset
 
Set rst = New ADODB.Recordset
 
sql$ = "Select id From Clientes 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.!Id = y
rst.Update
rst.MoveNext
Next y
 
Set rst = Nothing
End Sub
 

Sale error de Compilacion - Error de Sintaxis