sincronizzazione db access tra pc

[elledigi]

...crea le replica da access e poi le sincronizzi con un tasto ( tipo questo)

Private Sub Command1_Click()
On Error Resume Next
Dim DB As Database
MousePointer = 11
Set DB = OpenDatabase(Text1.Text)
DB.Synchronize _
"www2.deware.it" _
& "/Replica/OsspMaster.mdb", _
dbRepImpExpChanges + dbRepSyncInternet
DB.Close
If Err Then
MsgBox "Errore " & Err & " ( " & Error$(Err) & ")"
Else
MsgBox "OPERAZIONE COMPLETATA"
End If
MousePointer = 0
On Error GoTo 0
End Sub