VBA: LOG vidreførsel af spm. 692528 - Flemming Dahl

I forbindelse med dette spørgsmål fik jeg en perfekt løsning. Men jeg vil gerne have noget hjælp med at ændre logningen fra en text fil til en access database.

Logning blev før gjort til en txt fil:

Public Sub AddLineToLog()
    'Tilføj i en eksisterende fil
    Dim sFileName As String
    Dim lFileNum As Long

    sFileName = "N:\bjo\excel\Excel.log"
    lFileNum = FreeFile
   
    If Not FileExists(sFileName) Then
        Open sFileName For Output As #lFileNum
            Print #lFileNum, CStr(Now() & " * " & UserId & " * " & fOSMachineName)
        Close #lFileNum
    Else
        Open sFileName For Append As #lFileNum
            Print #lFileNum, CStr(Now() & " * " & UserId & " * " & fOSMachineName)
        Close #lFileNum
    End If

End Sub