Pass PATH parameter from command line

[ADM1AVD]

I need to pass the parameter "d:\Database.mdb" from the command line.
Not hard coded in the program

Example
Set db = DBEngine.OpenDatabase("D:\Database.mdb", False, True)

Please Help.....Thanks