Confused About Database Problem!

[stickman373]

Below i have my code for accesing a database and when i move where the exe file and database are located on my computer it gives me error cannot find path. C:\Windows\Desktop\Project\db1.mdb

Why does it do this when my code is:

Set DB = DAO.OpenDatabase(App.Path & "\db1.mdb")

The Database is accessed from a different form with this code:

Private Sub Command1_Click()
Load frmMovieInfo
frmMovieInfo.Show
Call frmMovieInfo.Memento
End Sub

Database Code:

Dim DB As Database
Dim rs As Recordset
 
Private Sub cmdNext_Click()
    FillFields
    
    rs.MoveNext
    If rs.EOF Then
    rs.MoveFirst
    
End If
End Sub
 
Public Sub AI()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'A.I. : Artificial Intelligence' ")
    FillFields
End Sub
 
Private Sub Form_Load()
Set DB = DAO.OpenDatabase(App.Path & "\db1.mdb")
End Sub
 
Private Sub cmdPrevious_Click()
    FillFields
    
    rs.MovePrevious
    If rs.BOF Then
    rs.MoveLast
End If
End Sub
 
Public Sub FillFields()
    txtPlot.Text = rs.Fields("Plot")
    txtTitle.Text = rs.Fields("Title")
    txtYear.Text = rs.Fields("Year")
    txtGenre.Text = rs.Fields("Genre")
    txtFormat.Text = rs.Fields("Format")
    txtSize.Text = rs.Fields("Size")
    txtUploader.Text = rs.Fields("Uploader")
    txtSoundQ.Text = rs.Fields("SoundRating")
    txtPlotQ.Text = rs.Fields("Plot Rating")
    txtQualityQ.Text = rs.Fields("QualityRating")
    Image1.Picture = LoadPicture(rs.Fields("Picture") & "")
End Sub
 
Private Sub Picture2_Click()
Unload Me
End Sub
 
Public Sub Animal()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'The Animal' ")
    FillFields
End Sub
 
Public Sub Atlantis()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Atlantis: The Lost Empire' ")
    FillFields
End Sub
 
Public Sub Memento()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Memento' ")
    FillFields
End Sub
 
Public Sub FinalFantasy()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Final Fantasy: The Spirits Within' ")
    FillFields
End Sub
 
Public Sub Pearlharbor()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Pearl Harbor' ")
    FillFields
End Sub
 
Public Sub Shrek()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Shrek' ")
    FillFields
End Sub
 
Public Sub Swordfish()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Swordfish' ")
    FillFields
End Sub
 
Public Sub Tommyboy()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Tommy Boy' ")
    FillFields
End Sub
 
Public Sub MenofHonor()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Men Of Honor' ")
    FillFields
End Sub
 
Public Sub ScaryMovie2()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Scary Movie 2' ")
    FillFields
End Sub
 
Public Sub Bedazzled()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Bedazzled' ")
    FillFields
End Sub
 
Public Sub TheUsualSuspects()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'The Usual Suspects' ")
    FillFields
End Sub