Torna al Thread
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Compatta db\AZIENDALE 2012.mdb;Jet OLEDB:Database Password=", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Compatta db\AZIENDALE 2012 compact.mdb;Jet OLEDB:Database Password=")