Visual Basic - Abrir Crystal 11 con VB6

Hola a todos...

Actualmente creamos Reportes con Crystal Reports 7 y los abrimos desde vb6

de la siguiente manera




Esto con Crystal Reports 11 no funciona...

alguien sabe como hacerlo?

Gracias

** Los reportes tienen un archivo asociado (ttx) para el origen de datos

En el 11 no se pero en el 9 que igual se parecen es mas omenos asi

Dim Listado1 As New lAdjConIva
Dim Propiedad1 As CRAXDRT.ConnectionProperty
Dim Tablas1 As CRAXDRT.DatabaseTable
Set Tablas1 = Listado1.Database.Tables(1)
Set Propiedad1 = Tablas1.ConnectionProperties("Database Name")
Propiedad1.Value = Camino + "\Datos\" + Base
Set Propiedad1 = Tablas1.ConnectionProperties("Database Password")
Listado1.RecordSelectionFormula = Condiciones
If Fecha(1) <> "" Then Listado1.FormulaFields.Item(2).Text = "'" & Format(Fecha(1), "d-mmm-yyyy") & "'" Else Listado1.FormulaFields.Item(2).Text = ""
If Fecha(2) <> "" Then Listado1.FormulaFields.Item(3).Text = "'" & Format(Fecha(2), "d-mmm-yyyy") & "'" Else Listado1.FormulaFields.Item(3).Text = ""
If Combo(1) <> "" Then
Listado1.FormulaFields.Item(4).Text = "'" & Combo(1) & "'"
Else
Listado1.FormulaFields.Item(4).Text = "'Todas'"
End If
If Combo(2) <> "" Then
Listado1.FormulaFields.Item(6).Text = "'" & Combo(2) & "'"
Else
Listado1.FormulaFields.Item(6).Text = "'Todos'"
End If
If Combo(3) <> "" Then
Listado1.FormulaFields.Item(5).Text = "'" & Combo(3) & "'"
Else
Listado1.FormulaFields.Item(5).Text = "'Todos'"
End If
If Combo(4) <> "" Then
Listado1.FormulaFields.Item(7).Text = "'" & Combo(4) & "'"
Else
Listado1.FormulaFields.Item(7).Text = "'Todos'"
End If
Listar.VerListado.ReportSource = Listado1
End If