VB6: scivere una funzione di connessione con adodb

[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)