Tablodan Global değişken atamak

Firma bilgileri tablom var. bu tabloda tek kayıt olacak adres telefon isim gibi
form ve raporlarda kullanmak için 
bir modülde global değişken atamak istiyorum
txt_firmam veri =FirmaAdi()gibi 
formda aradım ama bulmadım 

Adres için, modül ekle. Modüle

Global AdresBilgisi as integer

Kodu ekle.

Uygulama ilk açıldığında çalışacak formun açıldığında olayına,

AdresBilgisi = Dlookup ("..",."..","..") şeklinde Dlookup ile veri çek.

Diğer formlarda da mesela,

Metin15 = AdresBilgisi

Şeklinde kumlanabilirsin

sayın ozanakkaya öncelikle teşekkürler.

modül şöyle

Public Function kurumAdi() As String



kurumAdi = Dlookup ("adim", "firmam", "[Kimlik] = 1")



End Function

form loadolayı  ise

Private Sub Form_Load()



Me.Metin199.SetFocus

Me.Metin199.Text = kurumAdi()

Me.Etiket206.Caption = kurumAdi()

End Sub

bu şekilde çalışıyo  ancak benim istediğim  hani =Date()  yazıp sistem tarihini gösteriyoruz ya işte öyle birşey 

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.