Error Conexión ODBC

Estoy programando un componente en VB para páginas ASP, que se conecta a una base de datos SQL Server a través de un DSN con DAO, pero no hay forma, estos son los pasos que he seguido y donde me he quedado:
1.- Creo la base de datos en SQL Server
2.- Creo un inicio de sesión (usuario)
Y le doy permisos sobre las tablas.
3.- Creo el ODBC, un DSN de sistema, le pongo el usuario y la contraseña que he creado en SQL y la prueba de conexión es satisfactoria.
4.- Creo una liberia con VB, genero el archivo .dll, la registro con regsrv32
Y me da el siguiente error:
DAO.Workspace error '80020009'
ODBC: error al conectar con 'bd.pruebas.sql'.
/pruebasql.asp, line 8
El código del componente es el siguiente:
Sub OnStartPage(ContextoPasado As ScriptingContext)
'Iniciar los componentes de servidor
Set mContexto = ContextoPasado
Set mResponse = mContexto.Response
Set mRequest = mContexto.Request
Set mApplication = mContexto.Application
Set mSession = mContexto.Session
Set mServer = mContexto.Server
'Conectar a la base de datos SQL
Dim strConn As String
Dim strSQL As String
strConn = "ODBC;DSN=bd.pruebas.sql;UID=qd976;PWD=jc23;"
Set mdb = DBEngine.Workspaces(0).OpenDatabase("", False, False, strConn)
strSQL = "SELECT * FROM CZSYSArbol"
Set mrs = mdb.OpenRecordset(strSQL, dbOpenDynaset, dbPessimistic)
With mrs
mResponse.Write (mrs.RecordCount)
If .RecordCount = 0 Then
.MoveLast
.MoveFirst
End If
End With
End Sub
¿Cuál es el problema?, me estoy volviendo loco y no salgo del problema.
Gracias anticipadas.