Dim selec As ADODB.Recordset
 
    If frmAdressverwaltung.chkNAuftraege.Value = 1 Then
'Mit dem Befehl Auswahl bekomme ich alle Recordsets in die Variable Sel
        Auswahl ("Select AuftragBrilleID,  BezArt from auftragbrille where" & _
          "KundenID = " & CDbl(frmAdressverwaltung.lblKundenNummer.Caption) & "" & _
          "and Bewegung = 0")
    Else
        Auswahl ("Select AuftragBrilleID,  ReNummer, BezDat, BezBetrag, BezArt" & _
          "" & _
            "from auftragbrille where KundenID = " & CDbl( _
            frmAdressverwaltung.lblKundenNummer.Caption) & _
            " and Bewegung = 1 and ReNummer = " & _
            frmAdressverwaltung.lblBReNummer2.Caption)
    End If
    pctAuftrag.Cls ' Die PictureBox
    Set selec = Nothing
    Set selec = Sel
    'ACHTUNG Diese Umschachtelung von Sel auf Selec hat damit zu tun, das
    'während des Brillenauftragzeigen noch mehrere Select Anweisungen 
    ' stattfinden
    'damit das Prog auch weis, worauf es zurückgreifen soll!!!
    Auftrag = 0
    selec.MoveFirst
 
    Do While selec.EOF = False
        Set Sel = selec
        If frmAdressverwaltung.chkNAuftraege.Value = 1 Then
            frmAdressverwaltung.BrillenAuftragZeigen (0)
        Else
            frmAdressverwaltung.BrillenAuftragZeigen (1)
        End If
        Druck_Zeigen
        selec.MoveNext
        Auftrag = 1
    Loop
    pctAuftrag.AutoRedraw = False
    Me.Refresh
End Sub