Questa stringa

code
----------------------
Public DataConnessione As String
Public Sub DataConnessione2()
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Prova.mdb;Persist Security Info=False;"
End Sub

-----------

va scritta obbligatoriamente nel modulo.bas