Dim conn As New ADODB.Connection
Dim mypath As String

mypath = App.Path & "\DBCD_97.mdb"

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=mypath"
scusa tanto, ho dormito io prima mentre leggevo il tuo codice...

semplicemente sbagli a concatenare la stringa di connessione con la stringa del path del database...(cmq, per confermare la lezione, me ne accorgo solo ora che mi hai detto che l'errore era "path not foud" )
codice:
dbq=" & mypath & ";"
ciao