Try to use MSHFlexGrid. Code example:

Set Me.MSHFlexGrid1.DataSource = Me.adcReport

Me.MSHFlexGrid1.Sort = 7

Sort Property
-----------------
flexSortNone 0 None.
flexSortGenericAscending 1
flexSortGenericDescending 2
flexSortNumericAscending 3
flexSortNumericDescending 4 flexSortStringNoCaseAsending 5 flexSortNoCaseDescending 6
flexSortStringAscending 7
flexSortStringDescending 8