Automate compacting Access 97 mdb

[Steven]

I am trying:

Dim DBName, NewDBName as String
DBName = "C:\Files\ExampleFile.mdb"
NewDBName = "C:\Files\NewFile.mdb"

DBEngine.CompactDatabase DBName, NewDBName

but the DBName file has a password and therefore I keep getting an error
message, "Not a valid password". The password is "accessgranted"

How do I code this so it will proceed with the compact.

Thank you for you help.

Steven

 

[Granny Spitz via AccessMonster.com]

Dim DBName, NewDBName as String

If you *don't* explicitly assign a data type to DBName (as it hasn't been in
this line of code), DBName will be a variant.

How do I code this so it will proceed with the compact

DBEngine.CompactDatabase DBName, NewDBName, dbLangGeneral &
";pwd=accessgranted", , ";pwd=accessgranted"

 

[Steven]

You have done it again.

Thank you very much.

 

[Granny Spitz via AccessMonster.com]

Thank you very much.

You're welcome, Steven. Good luck with your project.