Any suggestions will be appreciated
Brian Fan

It's not exactly what you want, but think about !

Crystal has at menu options:  Database / Set Locations. There, you can set
all tables to the
the option "Same as Report"

Now you can put your .mdb file at any directory but putting together your
.rpt file with it.

This is my suggetion

Regards

Rui Torres

Maybe this example from my code will help.

Private Sub Form_Load()

    On Error GoTo ErrLocal

    LoadInit

    DataEnvironment1.Connections("Template").ConnectionString = strConnect
    DataEnvironment1.Connections("Template").Open
    DataEnvironment1.Q_Process_Account

    Report.Database.SetDataSource DataEnvironment1.rsQ_Process_Account
    Report.ReadRecords
    DoEvents

    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport
    DoEvents

    CRViewer1.Refresh

    Exit Sub

ErrLocal:
    ErrorHandler
    Resume Next

End Sub

    Isn't 4.6.1 the one that is bundled with VB?  I have 7.0 now, but
started with the one that was bundled with VB.  I use the following code to
change the database at runtime:

Dim intFiles as Integer, HOMEDB as String

HOMEDB = "C:\PathToMDBFile.mdb"

With CR1
    .ReportFileName = App.Path & "\" & Report & ".rpt"
    intFiles = .RetrieveDataFiles

    For intCounter = 0 To intFiles - 1
        .DataFiles(intCounter) = HOMEDB
    Next
    .Action = 1
End With

The only problem with this approach is that it doesn't work with Sub
Reports.  At least I don't think so which is why I posted a thread in this
NG asking about it.  If you're just using a standard report, this works, at
least in V 7.0

Good Luck

Lee