credo se ne sia parlato in una marea di 3d.
Prova così:
set rs = server.CreateObject("ADODB.Recordset")
sql_Query = "Select....."
rs.CursorLocation = 3
rs.CursorType = 1
rs.LockType = 3
rs.Open sql_Query,co,1,3