Modifique el nombre del campo autonumerico y con este codigo tampoco funcionó:
Código vb:
Ver originalPrivate 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