Dim DBPath As String

DBPath = Application.CurrentProject.Path