pViewer.ProcessingMode = ProcessingMode.Local
Dim locReport As LocalReport = pViewer.LocalReport
Dim parameterListe As New List(Of ReportParameter)


Select Case pObj.GetType
    Case GetType(S88Model.Items.CEmType)

        Dim emType As S88Model.Items.CEmType = pObj
        locReport.ReportEmbeddedResource = "TechEditor.ReportEmType.rdlc"
        Dim bs As New Windows.Forms.BindingSource()
        bs.DataSource = emType

        Dim reportdatasource As New ReportDataSource()
        reportdatasource.Name = "EmTypeDataSet"
        reportdatasource.Value = bs

        Dim bs2 As New Windows.Forms.BindingSource()
        bs2.DataSource = CProjectData.DefaultData
        Dim reportdatasource2 As New ReportDataSource()
        reportdatasource2.Name = "ProjectDataSet"
        reportdatasource2.Value = bs2


        locReport.DataSources.Add(reportdatasource)
        locReport.DataSources.Add(reportdatasource2)
        pViewer.RefreshReport()

        ...