Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath(strDbPathAndName)
Sql="Select * from Top_Chart Order by Rank_Id"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3