|
Dbazienda = New OleDb.OleDbConnection 'Stringa = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TypeConn.PathDataBase & ";Jet OLEDB:Database PassWord=XXXXXXXX;" Stringa = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & TypeConn.PathDataBase & ";Jet OLEDB:Database PassWord=XXXXXXXXX;" ''********************************** '' variabile globale di connessione ''********************************** 'StringaConnessione = Stringa ''********************************** Dbazienda.ConnectionString = Stringa TypeConn.ConnectionString = Stringa Dbazienda.Open() |