Problem çözüldü. 
Modülü kaydetmeden denediğim için olmuyormuş 


Module1 

Option Compare Database



Option Explicit



Function FirmaBilgileri()

   FirmaBilgileri = Dlookup ("Kurum", "tbl_bilgilerim", "[Kimlik] = 1")

End Function

Formdaki herhangi bir kontrolun denetim kaynağına

=FirmaBilgileri()

 yazınca bilgiler geliyor.