E' semplice devi creare una routine:
Public Sub DataConnessione2()
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NomeDB.mdb;Persist Security Info=False;"
End Sub![]()
E' semplice devi creare una routine:
Public Sub DataConnessione2()
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NomeDB.mdb;Persist Security Info=False;"
End Sub![]()
LM