Can anyone help me please.

I have a crystal report which links to an access 2000 database. When using the report from visual basic I need to change the file location of the database depending on where the software is installed. How can this be achieved????

Please see my code so far below. --

With CrystalReport1
.SelectionFormula = ""
.ReportFileName = App.Path & "\reports\stocktakesheet.rpt"
.DataFiles(0) = App.Path & "\barcodes.mdb"
.Password = "1111111" & Chr(10)
.RetrieveDataFiles
.ReportSource = 0
.Destination = crptToWindow
.WindowControlBox = True
.PrintFileType = crptCrystal
.WindowState = crptMaximized
.WindowMaxButton = False
.WindowMinButton = False
.Action = 1
End With