inserisci
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NomeDB.mdb;Persist Security Info=False;"
all'interno della Public Sub SalvaDati()
Ciao