Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms
Public Class drucken2
    Dim con As New OleDbConnection(d)
 
    Private Sub drucken2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim da As New OleDbDataAdapter("select * from pferd", con)
        Dim ds As New DataSet
        da.Fill(ds, "Pferd")
        Dim rp As New ReportDataSource("Pferd_Report", ds.Tables("Pferd"))
        Me.ReportViewer1.LocalReport.DataSources.Add(rp)
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = _
          "Bericht_Pferd.rdlc"
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class