Finally, I find an method how can I syncronize two database (through VPN) and I want to make a progress bar.

Public Sub DirectSync()

Dim repMaster As New JRO.Replica
Dim RepNorthwind As New JRO.Replica
Dim conn As New ADODB.Connection

' Open the database.
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Program Files\Microsoft Office\" & _

' If a replica of the database exists, it is deleted.
repMaster.ActiveConnection = conn
' "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
If (Dir("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb") <> "") Then Kill _
("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb")

' Create a new replica of the database.
repMaster.CreateReplica "C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb", _
"Replica1 for Northwind.mdb", _
jrRepTypeFull, jrRepVisibilityGlobal

' Synchronize the values.
repMaster.Synchronize "C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb", jrSyncTypeImpExp, _

End Sub

Please, give me an advice how make this.
I need a urgent help, please...

Thanks in advance!