Sort data with disconnected record set

Const adInteger = 3

Const MaxCharacters = 10

Dim sampleArr( 20 )

For i = LBound( sampleArr ) to UBound( sampleArr )

   sampleArr( i ) = RandomNumber( 1, 1000 )

Next

Print "Array before sorting :"

For Each num In sampleArr

  Print num

Next

' ** creating disconnected record set object

Set dataList = CreateObject( "ADOR.Recordset" )

dataList.Fields.Append "Number", adInteger

dataList.Open

For Each num In sampleArr

  dataList.AddNew

  dataList( "Number" ) = num

  dataList.Update

Next

dataList.Sort = "Number"

dataList.MoveFirst

Print "Array after sorting :"

Do Until dataList.EOF

  Print dataList.Fields.Item( "Number" )

  dataList.MoveNext

Loop

dataList.Close