Recordset als Ergebnis einer Funktion verarbeiten

Sub rufe ich eine Funktion auf, die als Ergebnis mir ein Recordset liefern sollte.
ergebnis= lese_kunden(cn)

Function lese_kunden(cn) As ADODB.Recordset
Dim SQLStatement As String
SQLStatement = "select * from Kunde"
lese_kunden.Open SQLStatement, cn, adOpenForwardOnly, adLockReadOnly
End Function


allerdings bekomme ich eine Laufzeitfehler  91 mit dem Hinweis Objektvariable oder With-Blockvariable nicht festgelegt. 

Wo ist hier mein Fehler? 

Vielen Dank im Voraus und schönen Abend noch