Quizás podría ser por el execute de la conexión, has tratado abriendo el recordset de otra manera?
strquery= "Cadena SQL"
strConnection = "driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=root;pwd=;database=db 1"'
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
set RS =server.createobject("ADODB.Recordset")
rs.Open strquery, adoDataConn, 3, 3
response.write rs.cursortype '//Aqui si dice que tengo 3
A ver si sirve así
Salu2,