Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms
Imports CrystalDecisions.Shared
 
Public Class Drucken
    Dim con As New OleDbConnection(d)
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.WindowState = FormWindowState.Maximized
        Dim da As New OleDbDataAdapter("Select" & _
          "KopfNr,Pfnam,Pfalter,Farbe,ZuchtDeutsch,GEVPKT, GEVHEK,B1Name from" & _
          "Pferd", con)
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim x As String
        da.Fill(dt)
        Dim rp As New BerichtPferd
        rp.Section1.ReportObjects("Picture2").?????????
 
 
 
        rp.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rp
    End Sub
End Class