Code:

Public Sub GetFilesPak(strPath As String)
   Dim rs As Recordset
   Dim strFile, strPot As String, strDate As Date
   CurrentDb.Execute "Delete * From tblPotNalaganja", dbFailOnError
   Set rs = CurrentDb.OpenRecordset("tblPotNalaganja", dbOpenDynaset)
   strPot = "G:\SKUPNO\meritve\Nalaganje\Special\"
   strFile = dir(strPath, vbNormal)
   Do
      If strFile = "" Then
        GoTo ExitHere
      End If
      strDate = FileDateTime(strPath & strFile)
      rs.AddNew
      rs!Pot = strPot & strFile
      rs!DATUM = strDate
      rs!izdelek = left(strFile, 11)
      rs.Update
      strFile = dir()
   Loop
ExitHere:
   Set rs = Nothing
   
End Sub