Dim SQL As String
    Dim SQLSort As String
    Dim Sort() As Variant
    Dim dummi As String
    Dim x As Integer
    Dim ctl As Control
 
   '---alle ausgewählten Felder ermitteln---
    For Each ctl In Me.Controls
        With ctl
            If .ControlType = acCheckBox Then
                If ctl.Value = True Then
                    SQL = SQL & " '" & ctl.Name & "',"
                End If
            End If
        End With
    Next ctl
    SQL = Left(SQL, Len(SQL) - 1) & " "

    dummi = "WHERE "
    Do
        dummi = dummi & "AlOrigFN='" & Sort(x) & "' Or "
        x = x + 1
    Loop Until x > UBound(Sort)
    dummi = Left(dummi, Len(dummi)-3)  'das letzte 'OR' entfernen
    SQLSort = "SELECT AIOrigFN, AIAbfrFN " & _
                      "FROM tbl_AbfrageInfo " & _
                       dummi & _
                      "ORDER BY AIStandSort;"