Set rs = Datenbank.OpenRecordset( "SELECT * FROM tblTest ORDER BY Spalte2", _
  dbOpenDynaset, dbReadOnly)

Sub CollatingOrderX()
 
Dim dbsNorthwind As Database
Dim fldLoop As Field
 
Set dbsNorthwind = OpenDatabase("Nordwind.mdb")
 
With dbsNorthwind
    ' Sortierreihenfolge der Nordwind-Datenbank zeigen.
    Debug.Print "Sortierreihenfolge von " & .Name & " = " & .CollatingOrder
 
    ' Sortierreihenfolge der Felder eines TableDef-Objekts zeigen.
    Debug.Print "Sortierreihenfolge der Felder in " & .TableDefs(0).Name & "" & _
      "table:"
    For Each fldLoop In .TableDefs(0).Fields
    Debug.Print "    " & fldLoop.Name & " = " & fldLoop.CollatingOrder
    Next fldLoop
 
    .Close
End With
 
End Sub