Por que ocurre este Error Microsoft ADO/RDS (0x80072EFD) ?

[leophp]

Hola
Que puedo estar haciendo mal, en este codigo, es una conexion a una base de datos remota

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS =Server.CreateObject("ADODB.RecordSet")

DefConexionBDD = "Provider=MS Remote;Remote Server=http://200.83.240.141;Remote Provider=MSDASQL;DSN=bddaspcollege"

Conn.Open DefConexionBDD

sSql = "SELECT * FROM FichaAlumno"
RS.Open sSQL,Conn,3,&H0001
If RS.EOF = False then
Do While Not RS.EOF
Response.Write(RS.Fields("Nombre") & "<br>")
Loop
End if
Conn.Close
Set RS = Nothing
Set Conn = Nothing


Tipo de error:
Microsoft ADO/RDS (0x80072EFD)
Internet Client Error: Cannot Connect to Server.

Este error ocurre en esta linea
RS.Open sSQL,Conn,3,&H0001



Les agrasco cualquie ayuda