Eccola... ho provato così anche prima... sono fuso 
<%
Function Apex(sData,newData)
' Return string with single quotes doubledDim iLast As Integer
If Len(sData) = 0 Then
NewData = ""
Exit Function
END IF
iLast = InStr(sData, "'")
While iLast
sPart = sPart & left(sData, iLast - 1) & "'" & "'"
sData = Right(sData, Len(sData) - iLast)
iLast = InStr(sData, "'")
Wend
sData = sPart & sData
newData = Trim(sData)
End Function
'Create object. In this case Connection to a database
Set Conn = Server.CreateObject("ADODB.Connection")
'Select provider
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Select data source.
'Server.MapPath function is equivalent to app.path function of VB
'It returns the directory in which the script is present
Conn.ConnectionString = "Data Source=" & Server.MapPath ("classifica.mdb")
'Open the connection
Conn.Open
'Create recordset
Set Rs = Server.CreateObject("ADODB.Recordset")
Set mTable = Server.CreateObject("ADOX.Catalog")
set mNew = Server.CreateObject("ADOX.Table")
'Open recordset with the connection which we have created earlier
'you must be familiar with SELECT statement ,
'If not check my VB tutorial section.
mtable.ActiveConnection = Conn.ConnectionString
TabellaDaVisualizzare = Request.querystring("Tabella")
if TabellaDaVisualizzare = "" then
TabellaDaVisualizzare = Request.form("Tabella")
end if
SQL =Request.querystring("sSQL")
sql = "SELECT * FROM classifica ORDER BY p DESC"
%>