Crystal Report - No me muestra el report viewer

Hola tengo una función que realiza una consulta el resultado lo envia aun dataset que tiene la misma estructura que la tabla de la consulta, para posteriormente cargar un documento .rpt.
El problema es que depués de hacer todo el proceso quiero mostrar con show() no hace nada.
ME dejo o falta algo puesto que el dataset lo compruebo con un punto de interrupocion y contiene exatamente lo que debe contener.

El código es el siguiente:
Ssql = "SELECT * FROM encartes where descripcion ='" & Me.ComboBox2.Text & "'"

Dim sqlDaProd As SqlDataAdapter

Try

' cn contine el string de conexión.
sqlDaProd = New SqlDataAdapter(Ssql, cn)

sqlDaProd.Fill(ds, "Encartes")
'Poblar el informe con el dataSet y mostrarlo

Dim visor As New CrystalDecisions.Windows.Forms.CrystalReportViewer

' ' ' Dim info As New ReportProductos()

Dim documento As New CrystalDecisions.CrystalReports.Engine.ReportDocument
documento.Load( ruta + "ReportEncartes.rpt")

' ' 'ruta contiene el string hasta el directorio donde se encuentra el .rpt
info.SetDataSource(ds.Tables("Encartes"))
documento.SetDataSource(ds)
visor.ReportSource = documento

' ' ' ' visor.ReportSource = info

visor.Show()
visor.Name = "Informe Encartes"

Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try