' Ejecuta la consulta a la base dados
SqlDataAdapter1.Fill(DataSet11)
' Crea el reporte
Dim Rel As New CrystalReport1
' Asocia el conjunto de datos con el reporte
Rel.SetDataSource(DataSet11)
' Asocia el reporte con el Visualizador
CrystalReportViewer1.ReportSource = Rel