Private Sub Drucken_Enter(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Drucken.Enter
        Dim rds1 As New ReportDataSource("dsKunden_Bestellung")
 
        rds1.Value = KundenBindingSource
        ReportViewer1.LocalReport.DataSources.Add(rds1)
 
 
        ReportViewer1.LocalReport.ReportEmbeddedResource = _
          "Kunden_Liste.Report1.rdlc"
        Me.ReportViewer1.RefreshReport()
    End Sub