Crystal Report - muy urgente

Estoy intentando cambiar la ubicación de la Base de datos por código, pero tengo problemas.

el código que utilizo es el siguiente:
Option Explicit

Dim Report As New Crystal_GPCOAC

Private Sub Form_Load()
Dim Indice As Integer
Dim CProperty As CRAXDRT.ConnectionProperties
Dim CRXDatabase As CRAXDRT.DatabaseTable

NewCn.Open "Driver=Microsoft access Driver (*.mdb);DBQ=" & Frm_Principal.Txt_Origen.Text & ";User ID='';Password=''"

For Indice = 1 To Report.Database.Tables.Count
Report.Database.Tables(Indice).ConnectionProperties("Data Source") = Frm_Principal.Txt_Origen.Text
Next Indice

Screen.MousePointer = vbHourglass
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = Report
'CRViewer1.EnableExportButton = True
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

El report está enlazado a una Base de Datos Access, pero yo por programa quiero cambiar a una nueva ubicación. (Hago una replica de la BD y quiero utilizar esta nueva).

Utilizo Report desde visual, no son Rpt independientes, pero me dá un problema dentro del for. Indice fuera de rango.

Es muy urgente, gracias de antemano.

Esto es lo que utilizo yo para cambiar la base de datos de los report.
un daludo.

Dim CPProp As CRAXDRT.ConnectionProperty
Dim DBTabl As CRAXDRT.DatabaseTable

Set DBTabl = crReport.Database.Tables(1) 'Obtiene la primera Tabla del reporte
BTabl.Location = RutaEmpresa <---- pon la ruta de la base de datos.