' REPLICA
Private Sub boton1_click()
   Dim db As DataBase
   Set db = OpenDatabase(App.path & "baseoriginal.mdb",True)
                    ' la opción True es porque tiene que estar abierta en modo exclusivo.
   Db.MakeReplica App.Path & "\nombrebasereplicada.mdb"
   db.Close
   Set db =Nothing ' desbloqueo la base
End Sub

' SINCRONIZACIÓN

Option Explicit
Dim db As Database

Private Sub boton2_Click()
   Set db =OpenDatabase(App.Path & "\nombrebasereplicada.mdb)
   db.Synchronize App.Path & "\baseoriginal.mdb"
   db.Close
   Set db=Nothing
End Sub



 Funciona. Si quieres más detalles dímelo.
También se puede hacer una réplica parcial

Pedro