returnere værdi fra funktion

Denne kode som ligger på en rapport virker fint:

Option Compare Database
Option Explicit

Private Sub Sidehoved_Print(Cancel As Integer, PrintCount As Integer)
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM Configuration WHERE Property='Company'")
  Company = rst!Value
  Set rst = Nothing
End Sub


Men når jeg splitter koden op, går det galt.
Rapport:
Option Compare Database
Option Explicit

Private Sub Sidehoved_Print(Cancel As Integer, PrintCount As Integer)
  GenererSidehoved
End Sub

Modul:
Option Compare Database
Option Explicit

Function GenererSidehoved() As String
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM Configuration WHERE Property='Company'")
  GenererSidehoved = rst!Value
  Set rst = Nothing
End Function

Mit sidehoved bliver ikke vist på rapporten.