Dim selec As New ADODB.Recordset
 
    Auswahl("Select DATEN from DATENBANK") ' Diese Auswahl ist eine Public Sub, 
    ' die mir immer meine Daten in das Recordset SEL einliest!
 
       pctAuftrag.Cls ' Meine Picture Box
    Set selec = Nothing
    Set selec = Sel ' Hier fülle ich das neue Recordset mit der Aktuellen 
    ' "Auswahl"
    Auftrag = 0
    selec.MoveFirst
 
    Do While selec.EOF = False
        Set Sel = selec
        If frmAdressverwaltung.chkNAuftraege.Value = 1 Then
            frmAdressverwaltung.AuftragZeigen (0) ' Hier fülle ich die Form mit 
            ' den Formatierten Ergebnissen - und hier wird auch wieder das 
            ' Recordset Sel benötigt..
        Else
            frmAdressverwaltung.AuftragZeigen (1)' Das selbe wie gerade
        End If
        Druck_Zeigen
        selec.MoveNext
        Auftrag = 1
    Loop
    Me.Refresh