Set SQL_AUFTRAG = DB.OpenRecordset("SELECT DISTINCT(Auftragsnummer) FROM" & _
  "SQL_AUFTRAG", dbOpenSnapshot)
   With SQL_AUFTRAG
      If Not .EOF Then
         .MoveLast: .MoveFirst
         For Z = 1 To .RecordCount
            ComboAuftragsNummer.AddItem !Auftragsnummer
            .MoveNext
         Next Z
      End If
   End With