I'm trying to create a partial replica from a full replica using the code
below which is in a standard vba module being part of the full replica mdb.

Public Sub adhCreatePartialReplicaExample( _
strPartial As String)
   ' Creates a new partial replica from
   ' the current replica
   ' and populates the new partial replica.
   
   Dim rplPartial As JRO.Replica
   Dim rplFull As JRO.Replica
   Dim strConnect As String
   Dim strCustOrderRel As String
   Dim strOrderOrderDetailRel As String
       
   Set rplFull = New JRO.Replica
   Set rplPartial = New JRO.Replica
   
   ' Set the ActiveConnection to the full replica
   Set rplFull.ActiveConnection = CurrentProject.Connection
   
   ' Step 1: Create the empty partial replica
   rplFull.CreateReplica ReplicaName:=strPartial, _
    Description:="Partial replica", _
    ReplicaType:=jrRepTypePartial
   Set rplFull = Nothing
   Debug.Print "Partial replica created."
   
   strConnect = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strPartial & ";"

   ' The PopulatePartial method requires an
   ' exclusive connection to the partial replica
   rplPartial.ActiveConnection = strConnect & _
    "Mode=Share Exclusive"
   
   rplPartial.Filters.Append "fermi", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "g1maz", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "g2maz", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "g3maz", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "g4maz", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "IDR_POT", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "MazG1K", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "MazG2K", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "MazG3K", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "MazG4K", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "tblsettings", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "PortDez23", _
    jrFilterTypeTable, True
   rplPartial.Filters.Append "PortMazz", _
    jrFilterTypeTable, True
     
   ' Step 2: Populate partial replica
   rplPartial.PopulatePartial CurrentProject.FullName
   Debug.Print "Partial replica populated."
   
   Set rplPartial = Nothing
End Sub

The code runs to completion but I can't see the partial replica that's
supposed to have been created anywhere on the hard disk.
I launch the above sub from the immediate window typing:
adhCreatePartialReplicaExample "scalve_bx.mdb"
and I guess I ought to find the partial replica named scalve_bx.mdb in the
same folder where the full replica is but nothing shows up.
What's going on?