ayuda con cr9 y vb

wikdows
12 de Mayo del 2005
Private Sub Form_Load()
`hice este codigo para conectarm a la nueva version del crystal y en verda si conecta pero no m muestra la informacion q yo necesito
Dim path As String
On Error GoTo errorhandler
Set crApp = New CRAXDRT.Application
Set crReport = New CRAXDRT.Report
mflgcontinuar = True
path = App.path & "CryRepExpe.rpt"
Set crReport = crApp.OpenReport(path, 0)
CRViewer91.ReportSource = crReport
CRViewer91.DisplayGroupTree = False
CRViewer91.ViewReport
Exit Sub

errorhandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgcontinuar = False


''este era el codigo anterior y funcionaba relativamente bien

'Dim CPProperty As CRAXDRT.ConnectionProperty
'Dim DBTable As CRAXDRT.Database

'Set DBTable = CryRepExpe.Database.Tables(1)

'CPProperty = DBTable.ConnectionProperties("Data Source")
'CPProperty = DBTable.SetDataSource(cnnControl, [], 1)
'CPProperty.Value = sGetINI(App.Path & "sgbcb.ini", "Db", "Server", "?")

'Set CPProperty = DBTable.ConnectionProperties("User ID")
'CPProperty.Value = sGetINI(App.Path & "sgbcb.ini", "User", "User", "?")

'Set CPProperty = DBTable.ConnectionProperties("Password")
'CPProperty.Value = frmCryp.sCryp.DeCrypt(sGetINI(App.Path & "sgbcb.ini", "User", "Password", "?"), sPKey)

'Set CPProperty = DBTable.ConnectionProperties("Initial Catalog")
'CPProperty.Value = sGetINI(App.Path & "sgbcb.ini", "Db", "db", "?")

' Unload frmCryp
' Set frmCryp = Nothing

'Set Report = New CryRepExpe


'CRViewer91.ReportSource = CryRepExpe
'CRViewer91.ViewReport
``quisiera saber como hago para acoplar estos dos codigos y yo siga imprimiendo los informes como antes. muchas gracias
End Sub