Mara, el evento se llama HeadClick y se dispara cuando haces efectivamente click sobre la cabecera de una columna. El parámetro colindex te permite ubicar la columna, para manejar con la colección Columns.
Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
Debug.Print DBGrid1.Columns(ColIndex).Caption
End Sub