Visual Basic - como cambiar ruras en subreportes

Hola, tengo un problema espero me puedan ayudar, el detalle es que no se como cambiar la ruta o la formula de un subreporte en mi reporte, uso el siguiente codigo para invocar mi reporte, haber si me pueden decir como hacer esto, de antemno gracias.

Dim objPreview As CRPEAuto.View, objTable As DatabaseTable, objTAbles As DatabaseTables

Set mobjReportApp = New CRPEAuto.Application
Set base = Workspaces(0).OpenDatabase(rutabd & "\captura.mdb", False, False, ";Pwd=")
Set mobjReport = mobjReportApp.OpenReport(App.Path & "\rpt\rep_horased.rpt")

'Set mobjReportApp = New CRPEAuto.Application
With mobjReport
.DiscardSavedData
.Database.Tables(1).Location = rutabd & "\captura.mdb"
'.Database.Tables(1).SetLocationEx rutabd & "\captura.mdb", "" & stabla1 & ""
.FormulaFields.Item(2).Text = Chr(34) & sempresa & Chr(34) 'formula b formula a=1
.FormulaFields.Item(1).Text = Chr(34) & stexto & Chr(34) 'formula c
.ProgressDialogEnabled = True
.DialogParentWindow = hwnd
.PrintWindowOptions.HasPrintSetupButton = True
.PrintWindowOptions.HasRefreshButton = True
.PrintWindowOptions.HasSearchButton = True
Set objPreview = .Preview("Rep. Tiempos x Empleado", , , , , WS_MINIMIZEBOX + WS_CAPTION + WS_MAXIMIZE + CW_USEDFAULT + WS_THICKFRAME + WS_MAXIMIZEBOx)
Set mobjPreviewWindow = objPreview.Parent
End With