Ho provato ma nada...

idtrans = cstr(transazioni.Fields.Item("ID").Value)


Dim prodottiord2
Dim prodottiord2_numRows

Set prodottiord2 = Server.CreateObject("ADODB.Recordset")
prodottiord2.ActiveConnection = MM_datacat20u_STRING
prodottiord2.Source = "SELECT * FROM prodottiordini WHERE idtransazione = ' " + Replace(idtrans, "'", "''") + " ' "