Private Sub Grid1_ColumnClick(ByVal nCol As Long, Button As Integer)
  ' Sortierung durch Neu-Zuweisung des Recordsets
  Dim sSQL As String
  Dim i As Long
  Dim sSort As String
 
  sSQL = Grid1.Recordset.Name
  If InStr(1, sSQL, " ORDER BY ", vbTextCompare) > 0 Then
    sSQL = left$(sSQL, InStr(1, sSQL, " ORDER BY ") - 1)
  End If
 
  With Grid1
    .LockUpdate True
    If .Columns(nCol).SortDesc = SORT_ASC Then
      sSort = "DESC"
    Else
      sSort = "ASC"
    End If
 
    Set .Recordset = oDB.OpenRecordset(sSQL & " ORDER BY [" & .Recordset.Fields( _
      nCol - 1).Name & "]" & sSort)
 
    ' Sortier-Symbole anzeigen
    For i = 1 To .Cols
      If i = nCol Then
        .Columns(i).SortDesc = IIf(sSort = "ASC", SORT_ASC, SORT_DESC)
      Else
        .Columns(i).SortDesc = SORT_NONE
      End If
    Next i
    .LockUpdate False
    .Refresh
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de