ho aperto la connessione con una sub:
public sub connectDB()
Connstring = "la stringa di connessione"
set Conn=SERVER.CreateObject("AdoDB.Connection")
Conn.Open ConnString

end sub

poi metto
call connectDB()
conn.begintrans
set rsx=conn.execute(sql)

'e fin qui tutto bene...
set rsY=conn.execute (sql1)
mi scrive il seguente errore:

Microsoft OLE DB Provider for SQL Server error '80004005'

Impossibile creare una nuova connessione perché è attiva la modalità di transazione manuale o automatica.


Spero di essermi spiegata bene..
Grazie