Sincronizar bases de datos

En un formulario, colocar en alguna acción el siguiente código:

Call SynchronizeDBs("C:\MyRepl.mdb", "L:\OtherRepl.mdb", 2)

El número 2 que aparece al final del código tiene relación con el tipo de réplica que se ejecutará según las distintas sentencias case. En el caso mío que busco la sincronización completa para ambos lados, coloqué el número 1. Luego en un módulo colocar:

Sub SynchronizeDBs(strDBName As String, strSyncTargetDB As String, intSync As Integer)
Dim dbs As DATABASE
Set dbs = DBEngine(0).OpenDatabase(strDBName)
Select Case intSync
Case 1  'Synchronize replicas (bidirectional exchange).
dbs.Synchronize strSyncTargetDB, dbRepImpExpChanges
Case 2  'Synchronize replicas (Export changes).
dbs.Synchronize strSyncTargetDB, dbRepExportChanges
Case 3  'Synchronize replicas (Import changes).
dbs.Synchronize strSyncTargetDB, dbRepImportChanges
Case 4  'Synchronize replicas (Internet).
dbs.Synchronize strSyncTargetDB, dbRepSyncInternet
End Select
dbs.Close
End Sub

Fuente:  support.microsoft.com