Public Sub OpenReport(ByVal rptName As String)
Dim rep As New CrystalDecisions.CrystalReports.Engine.ReportDocument
 
	Try
		rep.Load(CurDir() & "\" & rptName & ".rpt")
		rep.SetDataSource(dsReporting)
	Catch ex As Exception
		Message("frmReport|OpenReport: " + ex.Message)
	End Try
 
                    '#############  Hier kannst Du einen Filter setzten 
                    ' ###############
                    'CrystalReportViewer1.SelectionFormula = "{Kunde.PersNr} =" & _
                      "'00010'"
                    '########################################################
 
	CrystalReportViewer1.ReportSource = rep
 
End Sub