Dim da As New OleDbDataAdapter("Select KopfNr,Pfnam from Pferd", con)
        Dim ds As New DataSet
        Dim dt As New DataTable
        da.Fill(ds, "Pferd")
        da.Fill(dt)
        MsgBox(dt.Rows.Count)
 
        ds.WriteXml("Pferd.xml", XmlWriteMode.WriteSchema)
        Dim nwds As New DataSet
        nwds.ReadXml("Pferd.xml")
 
 
 
        Dim kbs As New BindingSource
        kbs.DataSource = nwds
        'kbs.DataSource = dt
        kbs.DataMember = "Pferd"
 
        Dim rp As New ReportDataSource("DatenDataset_Pferd")
 
        rp.Value = kbs
        MsgBox(Application.StartupPath.ToString)
        Me.ReportViewer1.LocalReport.DataSources.Add(rp)
        'Me.ReportViewer1.LocalReport.ReportEmbeddedResource = 
        ' "GEV2010.BerichtPferd.rdlc"
        Me.ReportViewer1.LocalReport.ReportPath = Application.StartupPath + _
          "\BerichtPferd.rdlc"
        Me.ReportViewer1.RefreshReport()
        Me.WindowState = FormWindowState.Maximized