VB6: scivere una funzione di connessione con adodb

[albadur]

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

[vonkranz]

Come prima cosa, cambia il nome della funzione...Recordset e' una parola riservata

...e poi, dove ti da l'errore?

[albadur]

dunque...la situazione è questa, ho apportato alcune modifiche e sono arrivato a questo punto, la funzione che sta nel modulo è:

Function recset(sql As String) As Recordset

nomedb = App.Path & "\mdb\miodb.mdb"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nomedb & ";Persist

Security Info=False"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strcn

rs.Open sql, cn, 3, 3
Set recset = rs

End Function

mentre invece nel form ho scritto:

Dim result As Recordset
sql = "select * from tb_tipo_utenza"
result = recset(sql)
While Not result.EOF
tipoute.AddItem (result("descrizione"))
Wend
closedb

closedb è una sub che ho scritto per chiudere recordset e connection

mandando in esecuzione il progetto mi viene generato errore di tipo "utilizzo non valido di property " sulla riga
result = recset(sql)

da che cosa può dipendere?
grazie dell'aiuto!:bubu:

[vonkranz]

Prova a mettere

SET result = recset(sql)

[albadur]

ci ho gia provato e l'applicazione mi si blocca al punto che devo terminare il vb.......

[vonkranz]

Allora prova a dichiarare sia funzione che recordset come AdoDB.RecordSet

Al limite puoi passare un Recordset come altro parametro alla funzione e valurizzare questo in uscita.

[albadur]

purtroppo anke con l'aggiunta di adodb.recordset la funzione non funziona (caruccio il gioco di parole:gren: ) ma non ti seguo per il discorso del recordset in ingresso....puoi essere + kiaro?

[vonkranz]

Function recset(sql As String, recSetPMT as AdoDB.recordset) 
....
recSetPMT = rs 
....
end function

e quando chiami la funzione...

Dim result As AdoDB.recordset
sql = "select * from tb_tipo_utenza" 
call recset(sql,result)

[optime]

per completezza (so che e' una semplice dimenticanza)... se usi CALL devi cambiare la Function in Sub.

[albadur]

mha...niente da fare, non va....