vorrei scrivere una funzione che mi consenta di connettermi ad un database utilizzando adodb, questa function dovrebbe prendere in ingresso la variabile contenente la stringa sql e in uscita mi dovrebbe restituire il recordset....è possibile farlo?
io nel mio modulo ho scritto qualcosa del genere:

Function recordset(sql As String)

NomeDB = App.Path & "\mdb\database.mdb"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB & ";Persist Security Info=False"
Set cn = New ADODB.Connection
set rec = New ADODB.recordset
cn.Open strcn

rec.Open sql, cn, 3, 3
recordset = rec

End Function


ma mi da l'errore "numero errato di argomenti o assegnazione di propietà non valido"

mi potreste aiutare a scriverla bene questa function?

grazie 1000