Sorry but huh? How do(es) the question(s) relate to MS Access replication?

I am using an Access 2000 database with my VB application. After opening
the database I want to know if it is replicated. So I do

  Set repReplica = New JRO.Replica
  With repReplica
    Set .ActiveConnection = dbCNN
    ReplikationGenutzt = .ReplicaType <> jrRepTypeNotReplicable
  End With
  Set repReplica = Nothing

This works fine with an ADO connection defined using

  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = dbDatabasePfad
  .Properties("Jet OLEDB:System Database") = SystemDB

However, when I create the connection with

  .Provider = "MSDataShape.1"
  .Properties("Data Provider") = "MICROSOFT.JET.OLEDB.4.0"
  .Properties("Data Source") = dbDatabasePfad
  .Properties("Extended Properties") = "Jet OLEDB:System Database=" &
SystemDB

I get an error at Set .ActiveConnection: connection closed or invalid.
But normal access to the database works without problems.

As I need the MSDataShape for the Data Report Designer: What's the best
was to solve the problem? Should I create an extra connection for the
Data Report Designer?

Lothar Geyer