Private Sub frmDrucken_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        oRpt.SetDataSource(clsMain.ds)
        oRpt.RecordSelectionFormula = "{auftrag.ID_Auftrag} =" & _
          "20050809125900031" '--> funktioniert nicht
        oRpt.RecordSelectionFormula = "{auftrag.AuftragsNummer} =" & _
        "'456-090805-01'" '--> funktioniert
        crv1.ReportSource = oRpt
    End Sub