benzeri kod daha önce lazım olmuştu. nette uzun araştırmalar sonucu aşağıdaki kodu bulmuştum.

Kod linkden alıntıdır.
http://us.generation-nt.com/programmatic...86042.html

Public Sub Synchronize(strRemoteReplica As String)

Dim dbLocal As DAO.Database

Dim strLocalReplica As String



strLocalReplica = Mid(CurrentDB.TableDefs("MyTable").Connect, 11)

Set dbLocal = DBEngine.OpenDatabase(strLocalReplica)

dbLocal.Synchronize strRemoteReplica

dbLocal.Close

Set dbLocal = Nothing

End Sub