Public Function Grid_GetOrderBy(ByRef Grid1 As Object) As String
  Dim sTemp() As String
  Dim i As Long
  Dim sOrderBy As String
  Dim Index As Long
 
  With Grid1
    If Len(.SortOrder) > 0 Then
      sTemp = Split(.SortOrder, ",")
      For i = 0 To UBound(sTemp)
        Index = Val(left$(sTemp(i), InStr(sTemp(i), " ") - 1))
        If Len(sOrderBy) > 0 Then sOrderBy = sOrderBy & ","
        sOrderBy = sOrderBy & .Recordset.Fields(Index - 1).Name & _
          Mid$(sTemp(i), InStr(sTemp(i), " "))
      Next i
    End If
  End With
 
  Grid_GetOrderBy = sOrderBy
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de