Visual Basic - Reporte en blanco

Tengo un reporte realizado con Crystal XI y lo llamo desde VB.NET para mostrarlo, pero cuando ejecuto mi aplicacion me muestra el reporte vacio, este es mi codigo:

Dim Reporte As New FrCrystal
Dim crApp As New CRAXDDRT.Application
Dim crReport As New CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim cadena(3) As String
Dim lPath As String = "C:Documents and SettingsBocaMis documentosVBConstruccionGamatConstruccionReportes"
cadena(0) = ".SQLEXPRESS"
cadena(1) = "Construccion"
crReport = crApp.OpenReport(lPath & "Informe1.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo(cadena(0), cadena(1))
Next

Reporte.CR.SelectionFormula = "{Facturacion.IDfact}=" & Val(lblComp.Text)
Reporte.CR.ReportSource = crReport
Reporte.CR.Refresh()
Reporte.ShowDialog()
Reporte.CR.Show()
Reporte.CR.ViewReport

Nota:CR es el Crystal Report Viewer cargado en el formulario FrCrystal, en realidad no se para que cargo el control ya que lo tengo diseñado desde Crystal("Informe1.rpt"), pero parece que hay que ponerlo si o si. Espero una ayuda.