postea cómo tienes el rs.open.
así debería funcionarte
Código:
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
'Set Conn = Server.CreateObject("ADODB.Connection")
Set RS =Server.CreateObject("ADODB.RecordSet")
RS.Open sSQL,Conn,adopenstatic,adcmdtext