VB里的TrueDbGrid一个排序的问题

Visula Basic 6.0里的TrueDbGrid怎么实现点击列，根据列重新对数据排序？

http://www.newxing.com/Code/VB/dayin/4844.html