Key extraction SCRIPT problems when db is renamed

Hi, 
I am using the following key extraction script. But there is a problem if I rename the database prior to running the script. I get an error message "Error on line 128 - Invalid database name. The database name provided is either invalid or currently in use." 
So the line not working is this one: 
Set keydb=Client.OpenDatabase(keydbfile)
 
Do you know how I could upgrade the script so it doesnt matter if the database is renamed or not, it will run the script?
 
Thx!