Listing 1: Code in ADOExcelPart2.vbs That Sorts and Filters the Recordset
' ******* BEGIN CALLOUT A *******
MsgBox "Recordset is now sorted on Header0 in Descending order"
oRS.Sort = "Header0 DESC"
oRS.MoveFirst
While Not oRS.EOF
  MsgBox oRS.Fields.Item("Header0").Value
  oRS.MoveNext
Wend
' ******* END CALLOUT A *******

MsgBox "Recordset is now sorted on Header0 in Descending order" & _
  vbcrlf & "And Filtered on records where Heading0 contains the string 'Filtered'"
oRS.Filter = "Header0 like '*Filter*'"
oRS.MoveFirst
While Not oRS.EOF
  MsgBox oRS.Fields.Item("Header0").Value
  oRS.MoveNext
Wend