>Set DB = OpenDatabase(App.Path & "\smdr1.mdb")

That is strange, given that App.Path is not availabe at design-time. Unless you are changing the path somewhere else with a chdir or something similar, App.Path should return the executable's startup path.

Maybe the MDB & the executable are in different directories?