This is easy. In your code, you have to build the fully qualified path to the folder where the database is. You can do this with something like:
Dim fullPath As String = Path.Combine(Application.StartupPath, "database.mdb")
Or, if the database file is in a subdirectory of the StartupPath:
Dim fullPath As String = Path.Combine(Application.StartupPath, "subfolder\\database.mdb")
Other than that, you haven't said what the problem is, nor mentioned any error messages you're getting, so it's very hard to help you. BTW, mentioning "urgent" in your post tends to get people to ignore you.
A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
2006, 2007