Import af 300 txt filer til tabel i access og tilføj filnavn til kolonne

Kære eksperter,

Jeg har fundet en stump kode på nettet, som importerer en række .txt filer til en samlet tabel i access. Det virker sådan set ok, men jeg kunne godt tænke mig at få tilføjet en kolonne med tekstfilens navn, således at man i den samlede tabel kan se hvor data stammer fra. Håber at I kan hjælpe mig?

Her er koden:

Private Sub Command3_Click()

    Dim strPath As String
    Dim strFile As String
    Dim strTable As String
    Dim strSpecification As String
    Dim intImportType As AcTextTransferType
    Dim blnHasFieldNames As Boolean

    ' Modify these values as needed
    strTable = "Odense"
    strSpecification = "Odensespec"
    blnHasFieldNames = False
    intImportType = acImportDelim

    ' Let user select a folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1)
        Else
            MsgBox "You didn't select a folder", vbExclamation
            Exit Sub
        End If
    End With
    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If

    ' Loop through the text files
    strFile = Dir(strPath & "*.txt")
    Do While strFile <> ""
        ' Import text file
        DoCmd.TransferText _
            TransferType:=intImportType, _
            SpecificationName:=strSpecification, _
            TableName:=strTable, _
            FileName:=strPath & strFile, _
            HasFieldNames:=blnHasFieldNames
        strFile = Dir
    Loop
End Sub