Dim Zähler As Long
 
Private Sub DataGrid1_Click()
If Zähler = False Then Zähler = 0
DataGrid1.Columns(3) = Zähler   'sollte natürlich die richtige Spalte sein
Hochzählen
Adodc1.Recordset.Sort = "Sortierer"   '*
End Sub                                                
 
Private Sub Hochzählen()
Zähler = Zähler + 1
End Sub