El código más parecido al tuyo que yo utilizo a veces es ...
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=iti0506;UID=iti0506;PWD=iti0506"
Conn.Open
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
rs.Source = "Select * from ..........."
rs.Open
Mira a ver si te funciona... debería de ser así.
