Salve a tutti.

In fase di sviluppo di un progetto ho deciso di utilizzare una connessione al mio db nel seguente modo:

Function OpenDB() As ADODB.Connection
............

Set OpenProtectedDB = MyConn

End Function


Il problema sussiste quando devo richiamare una connessione già aperta infatti dopo aperto il primo rs:

strSQL = "SELECT * ...."
Set codcl = CreateObject("ADODB.Recordset")
codcl.Open strSQL, OpenProtectedDB(), adOpenStatic, adLockOptimistic

Mi da (giustamente) un problema quando riapro un secondo rs

Come posso risolvere???

Grazie