Må ikke skrive til Eventlogen

Hej med jer...

Jeg prøver at skrive til eventlogen, men får denne fejl:

------------------------------------------------

Security Exception

System.Security.SecurityException: Requested registry access is not allowed.

-------------------------------------

Her min kode:

Private Sub WriteToLog(ByVal sMessage As String)
            Dim oEventLog As New EventLog("Application")
            oEventLog.Source = "Telelet.Datalayer"
            oEventLog.WriteEntry(sMessage)
        End Sub

---------------------------------------

Jeg kalder så denne metode, i en try catch block.

F.eks.:

WriteToLog("Error in db connection")

-----------------------------------------------------

Hvad skal jeg gøre for at det kommer til at virke?

Mvh

DK