It is very difficult to debug without having the program in front of me. Either attach the MDB file so I can have a look or.
Recreate what you want within access in the form of a macro, then convert the macro to VBA and compare its code with what you have written.

Mega.