Ryan,



Looks good. A couple of questions/comments:

Be sure to check for end points
ie if you are at position 1 you can't move up to 0 and
if you are at the lowest rank say 9, you can't move to 10

You can name your queries more appropriately when you move to real code.

OR

You can take the sql of the query involved, and use a variable
ie
Dim SQL1 as string
SQL1 ="UPDATE........ your query sql"

Then, instead of OpenQuery, you can use

Currentdb.Execute SQL1, dbFailOnError and it will execute the query, without giving you the various prompts. However, if there is an error, it will give you notice.

Good stuff!