[VB6] problema databasename

[Parazione]

salve a tutti ho riscontrato questo problema:
praticamente nn riesco a cambiare il databasename del mio database creato in access.... se ho il file nel percorso del mio pc tutto funziona bene ma se lo passo a un mio amico o cambio cartella niente da fare.. nn funziona +...
ho provato anche a far scegliere il file da un altro font con il drivelist ecc usando questa istruzione per settarlo:

Dim FileSelezionato As String
FileSelezionato = File1.Path & "\" & File1.FileName
Form2.Data1.DatabaseName = "FileSelezionato"



ma nn c'è nulla da fare continua a chiedermi sempre lo stesso file...
ho anche provato a farglielo cambiare nel load del form così:

Private Sub Form2_Load()
Data1.DatabaseName = App.Path & "\pippo.mdb"
End Sub

ma nulla... nn cambia....

idee?