Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=dn2"
strQ = "SELECT * FROM table1"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strQ
...
rs.Close
Set rs = Nothing
conn.close
Set conn = Nothing
vielleicht hilft das..
gruss