Visual Basic - Ejecución de Reportes de Access

Estoy trabajando con VB 6 sobre una BD Access97 en la cual tengo un informe con sub-informes asociados, lo cual creo que no es posible en Cristal Report 4, por lo que necesito poder ejecutar este informe desde mi aplicación VB, es esto posible ???

Prueba con algo parecido a esto

Dim Informe As Access.Application

Set Informe = CreateObject("Access.Application")
Informe.OpenCurrentDatabase BaseDeDatos
Informe.DoCmd.Maximize

Informe.DoCmd.OpenReport "Informe", "CampoCondicion= '" & Condicion & "' "

Informe.Visible = True