hello again,
i created the code like this: Public Function createRecordset(strAdressen As String) As DAO.Recordset
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set rs = db.OpenRecordset(strAdressen)
set createRecordset = rs
End Functionbut i don't...