Ciao..l'errore è qui:
Data1.DatabaseName = App.Path & "c:\data.mdb" ' imposto il nome del database
Questo perchè: se per esempio il percorso del tuo programma è "c:\mioprogramma\", tu gli hai detto di cercare il database in
App.paht & "c:\data.mdb" ---> "c:\mioprogramma\c:\data.mdb"..?!?! Ti sembra?

A questo punto le soluzioni sono 2: o metti SEMPRE il database nella cartella del tuo programma (e allora basta App.path & nomedatabase.mdb) oppure lo fai cercare manualmente dal programma (magari con un commondialog) e a quel punto basterebbe:
codice:
Data1.databasename = commondialog1.filename
Ciao