Dim r As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim f As New Form
Dim rv As New CrystalDecisions.Windows.Forms.CrystalReportViewer
            r = DirectCast( _
              System.Reflection.Assembly.GetExecutingAssembly.CreateInstance(   _
System.Reflection.Assembly.GetExecutingAssembly.GetName().Name + "." + _
"Indexwerte"), _ 
CrystalDecisions.CrystalReports.Engine.ReportDocument)
 
r.SetDataSource(IndexDataset)  '<-- mein Dataset
f.WindowState = FormWindowState.Maximized
f.Controls.Add(rv)
rv.Size = f.Size
rv.Dock = DockStyle.Fill
f.Controls.Add(rv)
rv.ReportSource = r
f.Show()