|
If InStr(UCase(TypeConn.PathDataBase), ".ACCDB") = 0 Then Dbazienda.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & TypeConn.PathDataBase & ";Persist Security Info=False" Else ' stringa connessione access 2007/2009 Dbazienda.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & TypeConn.PathDataBase & ";Persist Security Info=False" End If |