Ayuda Dll Please

[Andr3s]

He creado una dll con el siguiente código:

Sub conectar()

Set oconn = Server.CreateObject("adodb.connection")
strconn = "Driver={SQL Server};Description=xxx;SERVER=ANDRES;UID=administ rador;PWD=xxx;DATABASE=xxx"
oconn.open strconn

End Sub

Es suficiente con esto para que funcione desde mi página asp. En esta página Asp inserto el siguiente código:

<%
Dim objeto
set objeto = server.createobject("projectoprueba.classprueba")


strsql = "SELECT TOP 3 * FROM noticias "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, oconn,3,1
%>

al ejecutarla me muestra un error:

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros. en la linea

RS.Open strSQL, oconn,3,1

Que estoy haciendo mal para poder cargar la dll yhacer el recordset desde mi página asp?

Nota: La Dll la registro sin ningun tipo de problemas puesto que solo con las 2 primeras lineas de la página asp carga sin problemas.


Gracias de antemano