Const pathDbaseLocal = "E:\RicettaCalandraBollate.mdb"
Const pathDbaseRemote = "X:\RicettaCalandraBollate.mdb"
Private Sub CommandButton1_Click()
Dim query As String
Dim query1 As String
Dim rs As DAO.Recordset
Set db = DAO.OpenDatabase(pathDbaseLocal)
Set db1 = DAO.OpenDatabase(pathDbaseRemote)

'cancella tabella remoto

query = "Delete * From GeneraleProcesso"
db1.Execute (query)

'a questo punto devo prendere i dati da tabella di locale e copiarli in remoto 
query1 = "INSERT INTO GeneraleProcesso select * From GeneraleProcesso in 'E:\RicettaCalandraBollate.mdb' "
db.Execute (query1)

db1.Close
db.Close
End Sub