It was much easier than I expected.
Solved the problem by using the commands
objIDs = rs.Command ("_ UnlockSelected")
Now the script works as I want.
Thank you all!
And especially for Mitch! for kindly providing the sources and tips for solving problems 