Recordset

Hvordan overfører man et Recordset via en metode i VB?

EKS:
-----

Function by(pnr As String) As Recordset

Dim db1 As Database
Dim rs1 As Recordset

Set db1 = OpenDatabase(\"c:\\ServerData\\database.mdb\", True)

sqltxt = \"select by from bytabel where postnummer=\'\" & pnr & \"\'\"

Set rs1 = db1.OpenRecordset(sqltxt, dbOpenDynaset, dbReadOnly)

by = rs1 \'her returneres Recordset?

db1.Close

End Function


Ved metode kald

Dim rs As Recordset
rs = by(\"7800\") \' her fejl