Mira, si la aplicación necesita crear una base de datos y trabajar con ella lo ideal es que se quede en la ruta de la aplicación...
Luego al intentar abrirla, la localizas donde se supone que debe estar, si no la haya entonces le sacas un mensaje y le dices no se ha encontrado la base de datos en la ruta '.....' desea localizarla manualmente? si indica que si, le abres una ventana de exploración para que la localice, después le dices que para que no tebnga que localizarla cada vez que se inicia la aplicación la deje donde debe estar, esto es donde tu la tenías en tu aplicación.
Si dentro de la ruta de tu aplicación creas una carpeta 'BD' y dejas allí la BD, entonces luego con
dim ruta as string=My.Application.Info.DirectoryPath
tienes la ruta de la aplicación y con:
dim rutaBd as string=ruta & "\BD\mibasededatos.mdb"
tienes la ruta esperada de la base de datos.
Saludos...
