Проблема с БД при создании инсталлятора - VB

Формулировка задачи:

Привет. У меня возникла небольшая проблемка. Написал я програмку которая в работе обращается к БД ACCESS подключение выглядит таким образом

Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = DAO.OpenDatabase('C:NDataDetMater')
sSQL = 'SELECT DISTINCT N1, N2, N3, N4, N5, N6, N7 FROM sver'        
Set Rs = Db.OpenRecordset(sSQL)

Создал я инстальник для своей программы. И тут возникла проблемка связанная с тем что я указал жестко путь в программном коде. После инсталляции программы в другой каталог программа естественно не находит БД по указанному пути. Вопрос: Подскажите каким образом мне нужно было указывать путь к БД чтобы небыло таких проблем.

Решение задачи: «Проблема с БД при создании инсталлятора»

textual
                            Листинг программы 
                        
                            Set Db = DAO.OpenDatabase('C:NDataDetMater')
 
public function Путь() as string
   Путь=GetSetting('***','***','БД',FSO(App.Path,'Имя Бд'))
end function
 
Set Db = DAO.OpenDatabase(Путь())' добавляю скобки к Ф чтоб помнить что она чтото возращает :-)