Crystal Reports ¿sencillo?

[Bravenap]

Bueno, pues lo he probado y me sale un error en el archivo C:\......\Temp\temp_beda............rpt: Número de Tabla no válido.

te pongo el código:

Código:

        Dim ds As New DataSet("dsInforme")
        ds.Tables.Add(dt)

        Try
            Dim myexportoptions As CrystalDecisions.Shared.ExportOptions
            Dim mydiskfiledestinationoptions As CrystalDecisions.Shared.DiskFileDestinationOptions
            Dim myexportfile As String
            Dim myreport As New Informe 'Este es el archivo de Crystal Reports
            myreport.SetDataSource(ds.Tables(0))
            myreport.Refresh()
            myexportfile = "D:\Miguel\Documentos\Qube\Qube\bin\informe.PDF"
            mydiskfiledestinationoptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
            mydiskfiledestinationoptions.DiskFileName = myexportfile
            myexportoptions = myreport.ExportOptions()
            With myexportoptions
                .DestinationOptions = mydiskfiledestinationoptions
                .ExportDestinationType = .ExportDestinationType.DiskFile
                .ExportFormatType = .ExportFormatType.PortableDocFormat
            End With
            myreport.Export()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

La línea de rojo es la que da el error, por lo que probé también con:

myreport.SetDataSource(ds.Tables("Informe"))

que es como se llama la tabla.