Visual Basic - 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.

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

¿?

no funciona ya lo había probado. El count es 2 que son las dos tablas que mi diseñador de Crystal hace referencia.

La cuestión es poder cambiar la ubicacion de la BD que yo le dí al definir el diseñador, pero por código visual.

No dices que Crystal usas, yo con el 9 hago lo siguiente

Dim Propiedad1 As CRAXDRT.ConnectionProperty
Dim Tablas1 As CRAXDRT.DatabaseTable
Set Tablas1 = Listado1.Database.Tables(1)
Set Propiedad1 = Tablas1.ConnectionProperties("Database Name")
Propiedad1.Value = App.Path + "" + nombre de la base
Set Propiedad1 = Tablas1.ConnectionProperties("Database Password")
Propiedad1.Value = "clave"