Database + commondialog.showopen

Hej jeg har et problem med min kode til mit program.
Når jeg startet programmet åbner den fint for databasen men lige så snart jeg har åbnet commondialog for at skifte et billed jeg har som baggrund så kan den ikke finde databasen. ??????????? fatter jeg ikke noget af

koden :

Private Sub Form_Load()
Set datdb = DBEngine.Workspaces(0).OpenDatabase("dvd.mdb")
    strSQL = "Select * from dvdfilm"
    Set recRecordset = datdb.OpenRecordset(strSQL)
    Do Until recRecordset.EOF
    List1.AddItem recRecordset("film")
    recRecordset.MoveNext
    Loop
End Sub