Private Sub CommandButton1_Click()
Dim query As String
Const pathDbaseLocal = "E:\RicettaCalandraBollate.mdb"
Set db = DAO.OpenDatabase(pathDbaseLocal)
query = " INSERT INTO GeneraleProcesso SELECT T1.* FROM [MS ACCESS;Database=\\Calandra2\backup\RicettaCalandraBollate.mdb].GeneraleProcesso AS T1  LEFT JOIN GeneraleProcesso AS T2 ON T1.Codice=T2.Codice WHERE T2.Codice IS NULL"
 db.Execute (query)
  db.Close
 MsgBox ("Database Locale copiato su Remoto"), vbInformation
End Sub