entonces deberia quedar asi?
Código HTML:
Set bd = Server.CreateObject("ADODB.Connection")
bd.open "dsn"
sql = "select * from tabla"
set rs = bd.execute(sql)
'saco registros
sql = "select * from tabla2"
set rs = bd.execute(sql)
'saco registros
rs.close
set rs = nothing
bd.close
set bd = nothing