How to change the path of an Access .mdb file @ runtime in Visual Studio 2012

Question

Hello,
  I'm hoping my question is simple enough to merit a quick answer.  I will lay out the details:
  I am writing a WindowsForms App in VB 2012.  I have a Crystal Report that points to an Access .mdb at design time in order to get the proper structure and layout correctly.
  However, during runtime, I need to point to a completely different .mdb file with the same identical structure.  How do I do this?  I've tried everything I could find on the net with no success and mostly because the answers are for C programmers.  I mean, I can pretty much decipher it, but have gotten zero results.
  Thank you for your time.
-Mike

Answer 1

ok. The code needs some small modifications.
I gave it a quick try and here is the InProc RAS SDK code which works for me. Add the assembly references to the app for all those assemblies used in the 'imports' statements in the code.
Imports CrystalDecisions.ReportAppServer.ClientDoc
Imports CrystalDecisions.ReportAppServer.DataDefModel
Imports CrystalDecisions.ReportAppServer.ReportDefModel
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Web
Imports CrystalDecisions.Shared
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ClientDoc As ISCDClientDocument
        Dim logonPb As New CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag()
        Dim table_Old As New CrystalDecisions.ReportAppServer.DataDefModel.Table()
        Dim table_New As New CrystalDecisions.ReportAppServer.DataDefModel.Table()
        'Open the report object to initialize the ReportClientDocument
        Dim rd As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        rd.Load("C:\Users\Administrator\Desktop\Report1.rpt")
        ClientDoc = rd.ReportClientDocument()
        table_old = ClientDoc.Database.Tables(0)
        'Clone the original table in the report
        table_new = table_old.Clone(True)
        ' Get the connection information from the report document for the first table in the collection.
        logonPb = table_new.ConnectionInfo.Attributes("QE_LogonProperties")
'set the path for new mdb
        logonPb.Item("Database Name") = "C:\Users\Administrator\Desktop\New folder\efashion1.mdb"
        ' Set a new table for the report, set the old table to the new one.
        ClientDoc.DatabaseController.SetTableLocation(table_old, table_new)
        'view the report
        CrystalReportViewer1.ReportSource = rd
    End Sub
End Class
Hope this clears the doubts