Set rs = UngebundenesRecordset("SELECT Aufmachung_Nr AS Aufm, Bezeichnung, CASE" & _
  "WHEN Ungueltig = 1 THEN 'X' END AS U, CASE WHEN Versand = 1 THEN 'X' END AS" & _
  "[Versand], Groesse AS [Größe], GewichtMinimum AS [Min.], Gewicht AS [Max.]," & _
  "ME " & _
                                    "FROM Aufmachung AS A " & _
                                    "ORDER BY A.Aufmachung_Nr")
   With txtRohAuf
      Set .Recordset = rs
      .BoundColumn = 1
      .DisplayColumn = 1
      .ColumnHeaderVisible = True
   End With