Скачал фунуцию, которая вроде как должна программно делать реплику.

Function TwoWayDirectSync(strReplica1 As String, strReplica2 As String)

On Error GoTo Err_

Dim repReplica As New JRO.Replica

repReplica.ActiveConnection = "Data Source=" & strReplica1 & ";Mode=Share Exclusive"
repReplica.Synchronize strReplica2, jrSyncTypeImpExp, jrSyncModeDirect
Set repReplica = Nothing
MsgBox "Синхронизация успешно завершена!", vbInformation, "Администратор"

Exit_:
Exit Function
Err_:
MsgBox Err.Description
Err.Clear
Resume Exit_

End Function

Запускаю ее так:

Private Sub КнСинхр_Click()

Dim rstTempPath As Recordset

Set rstTempPath = CurrentDb.OpenRecordset("АдминКоп")
Call TwoWayDirectSync(rstTempPath!ПутьРеплики, Me.ПутьБазы)
rstTempPath.Close

End Sub

А оно мне пишет:
«Отсутствуют права на использование объекта D:ДвериРепликаРСервер двери.mdb. Необходимые разрешения должны быть предоставлены системным администратором или пользователем создавшим объект».
PСервер двери.mdb - это реплика, сделанная из Сервер двери.mdb.
То есть похоже на то, как если бы база была защищена через mdw. Но ведь этого нет. Что неправильно я делаю?