set conn=server.createobject("adodb.connection")
conn.open "dsn=margins;uid=sa;pwd=111111;database=***"
set cmm=server.createobject("adodb.command")
cmm.ActiveConnection=conn
cmm.CommandType=adCmdText
cmm.CommandText="select * from table"
set rs=cmm.execute