Estimado goddemon, tu error está en la línea:
RS.Open sSQL,Conn,adopenstatic,adcmdtext
Te faltó especificar el tipo de bloqueo a utilizar para abrir el recordset después del tipo de cursor y antes del tipo de comando, o sea que debería ser así:
RS.Open sSQL,Conn,adopenstatic,adlockreadonly,adcmdtext
Teniendo en cuenta que cuando declaraste las constantes al principio del código donde dice:
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
Deberías agregar también:
Const adLockReadOnly = 1
Con eso se solucionaría tu error.
Probalo y después me contás.
