Dont create the connection object again and again if its just the same database. Set up the public connection in a BAS module on program start then close it on program end (in your Unload All procedure), and not per procedure call.

.Open .ConnectionString ...If you've already assigned the connection string to .ConnectionString then a simple .Open would suffice.

What value are you assigning to data source or what's "App.Path & strDBFile"? You may need to move your app directory closer to the root.