Cosa dici di questo:

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={AcuODBC}; "
strConn=strConn & " DSN=nome dsn"

Conn.Open strConn

sql1="SELECT * FROM tabella"

set rs1 = conn.execute(sql1)