Dim ReportPath As String = "..\Reports\" & Filename
 
            Dim myReport As New ReportDocument
            myReport.Load(ReportPath)
            myReport.SetDatabaseLogon("<meinUser>", "<meinPass>", _
              "<SERVER>", "<Datenbank>")
 
            Dim Values As ParameterValues = _
              myReport.DataDefinition.ParameterFields( _
              "idVerteiler").CurrentValues
            Dim Value As New ParameterDiscreteValue
            Value.Value = 1013
            Values.Add(Value)
 
            myReport.DataDefinition.ParameterFields( _
              "idVerteiler").ApplyCurrentValues(Values)
 
            myReport.DataDefinition.RecordSelectionFormula = _
              "{tbl20DateiSicht.idVerteiler} = {?idVerteiler}"