Visual Basic - Visual y Crystal 10

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.