Imports MySql.Data
        Imports MySql.Data.MySqlClient
        Imports System.Data.Common
        Imports Microsoft.Reporting.WinForms
 
        'Dimensionieren
        Dim objconn As New MySqlConnection(My.Settings.MySQL_Connectionstring)
        Dim rsgrid As New MySqlCommand("Select * from Table", objconn)
        Dim da As New MySqlDataAdapter
        Dim ds As New DataSet
        Dim dt As New DataTable
 
 
        ds.Tables.Add(dt)
        da.SelectCommand = rsgrid
        da.Fill(dt)
 
        'Die Datasource für den Report erstellen
        'Beim Namen MUSS man den Namen verwenden, der auch beim Erstellen vom 
        ' Report 
        'verwendet wurde.
        'Diesen finden man im Design Modus vom Report. Unterm Menüpunkt 
        ' "Bericht-Datenquellen"
        'findet man den Punkt Berichtsdatenquellen. Diesen Namen muss man auch 
        ' hier verwenden.
        Dim rp As New ReportDataSource( _
          "Orignal_Name_der_Datasource_vom_Report", dt)
 
        'Den ReportVierwer zurücksetzen.
        ReportViewer1.Reset()
        'Den Report angeben - hier MUSS man den vollständigen Namen verwenden 
        ' und
        'der Bericht muss als Resource im Projekt eingebunden sein.
        ReportViewer1.LocalReport.ReportEmbeddedResource = _
          "Projektname.Berichtsname.rdlc"
        'Den vorhandenen Datasource vom Bericht löschen.
        ReportViewer1.LocalReport.DataSources.Clear()
        'Die neue Datasource zuweisen.
        ReportViewer1.LocalReport.DataSources.Add(rp)
        'Den Report neu laden.
        ReportViewer1.RefreshReport()