i have a problem regarding the installation path and directory

below is my code

Private Sub Form_Load()
Dim rsregister As New ADODB.Recordset
' C:\Program Files\Ldsmem\Database.mdb
Let Ldsdb.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Program Files\Ldsmem\Database.mdb"
Ldsdb.Open
rsregister.Open "Select * from Stake", Ldsdb, adOpenDynamic, adLockOptimistic

If rsregister.EOF = True Then
Timer1.Enabled = False
frmsetup.Show
rsregister.Close
Me.Hide
End If
End Sub

my problem here is the source, paticulary the .mdb file

this is the default installation path

what if the user wants to change the directory then the program wont run

i want that wherever the installation path/directory is the the source of the .mdb file will also change

for example: the users wants to install it in drive D:\New Folder then the Source = D:\New Folder

the source path will also change somewhat app.path?