Grazie dell'aiuto, ma ho risolto.
Mi è venuta l'dea di usare questa procedura ... e la cosa migliore è che funziona:
Data1.DataName = App.Path & "\Nomedatabase"