مرتب سازي در شي ado

با سلام...
لطفا درباره مرتب سازي در شي ado يک مثال بزنيد ممنون ميشم....... :happy:

اگه منظورت مرتب سازی اين شکلی میشه...
for i=1to 5
( " a(i) =inputbox("enter string
next d
ford i=1 to5
for j= 5-i to 1 step -1
if a(j) >a(6-i) then
temp=a(6-i
a(6 -i ) =a(j
a(j)=temp
end if
next j
next i

نه فدات شم من مرتب سازي در شي adodc را ميخوام ..........