così forse è più chiaro quello che voglio fare allora questo è il codice

Dim StringaConn as string
StringaConn = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data_
Source=C:\Prova\Prova.mdb"
AdodcProva.connectionstring = StringaConn


vedete quella C:\ voglio eliminarla e indicare di trovare il db in qualunque drive anche su una pennina ho provato con app.path & ma non funziona!!!!!