prova così

codice:
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db.mdb"
ho aggiunto app.path