Private Sub ErstelleReport()
        Dim myReport As New rptFrmWertung
        Dim LogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
        Dim table As CrystalDecisions.CrystalReports.Engine.Table
 
        Dim dr As OleDbDataReader
 
 
        LogonInfo.ConnectionInfo.ServerName = mdbPath & FileName
 
        LogonInfo.ConnectionInfo.DatabaseName = mdbPath & FileName
        LogonInfo.ConnectionInfo.IntegratedSecurity = True
 
        For Each table In myReport.ClubRanking1.Database.Tables
            table.ApplyLogOnInfo(LogonInfo)
        Next
 
        ....
 
        Dim con As New OleDbConnection(connectionString)
        Dim cmd As New OleDbCommand("Select * FROM RowSettings WHERE id = 1", _
          con)
 
        Using con
            con.Open()
            dr = cmd.ExecuteReader
 
            If dr.HasRows Then
               ..... ' Spalten und Texte einstellen
            End If
        End Using
 
        myReport.ClubRanking1.ExportToDisk( _
          CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, mdbPath & _
          "Wertung " & FileName.Substring(0, FileName.LastIndexOf(".")) & _
          ".pdf")
        Process.Start(mdbPath & "Wertung " & FileName.Substring(0, _
        FileName.LastIndexOf(".")) & ".pdf")
 
        myReport.Close()
        myReport.CrystalReportViewer1.Dispose()
        myReport.Dispose()
 
    End Sub