使用ADO实现数组排序

'* ************************************** *
'* 模块名称：modSort.bas
'* 模块功能：使用ADO实现数组排序
'* 作者：http://blog.csdn.net/lyserver
'* ************************************** *
Sub main()
Dim pstr As String

pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd"

Dim v As Variant, v_array As Variant, rs As Object
v_array = Split(pstr, "/")
Set rs = CreateObject("ADODB.Recordset")
rs.Fields.Append "zd1", adChar, 100
rs.Open
For Each v In v_array
rs.AddNew "zd1", v
Next
rs.Sort = "zd1 ASC"
rs.MoveFirst
Do While Not rs.EOF
Debug.Print rs.AbsolutePosition, , rs!zd1
rs.MoveNext
Loop
rs.Close
End Sub