Microsoft Access 掲示板

おはようございます。
業務の取り扱うデータが一元化されておらず取扱いが煩雑性を極め業務効率がにっちもさっちもいかないため、先日からAccessの勉強を始めました。
テキストに従いAccessとExcelを連携させようとしたのですがトラブルが発生し、その後知人にも聞いたのですがどうしても解決ができず、当掲示板への書き込みに至りました。
当部署ではVBA自体を使えるのが私しかおらず、今までも独学でやって乗り越えてきたのですが、今のこのトラブルだけは一週間近く調べても悩んでもどうしても解決できませんでした。

この状況を打破するための手がかりを一刻も早く掴みたい次第です、初の書き込みでルールもわかってなく、内容も稚拙で大変お恥ずかしい質問であることは重々承知しておりますが、これを実行しDBシステムの構築の礎を作り業務効率化と問題の可視化を行うことは、今期の部下の昇進、昇格にもかかわっており今年度末までに早く解決しなければ今にも現場が崩壊し、守れるものも守れなくなってしまいそうな様な状況です。

何もわからない若輩者の質問とはなってしまうのですが、どうか平にお願い申し上げます。皆様のお知恵を拝借させていただけないでしょうか。

使用環境：Windows10　office2019　Access、Excel共に32bit版
ファイル保存場所：Accsess、Excel共に同一フォルダ
ファイル名：SampleSystem(Excel：データの元の部分) Data.accdb(Accsess:データ入力先)
OBDC32bit：存在確認済み
Excel参照設定：ActiveX DataObjects 6.1Library

以下問題のコード（直接、フォルダとファイルを指定した（"Data　Source=C:\Users\user\Desktop\System\Data.accdb;"）コマンドも試ましたが実行できませんでした。

下記コード実行時の表示：実行時エラー’-2147467259(80004005)':
ファイル　'C:￥Users￥user￥Desktop￥System¥Data.accdb'が見つかりませんでした。

'# シート上データの移行
Option Explicit '変数の宣言を強制する

Public Sub insertRecord()
  '## レコードの挿入
  
  '接続
  Dim cn As Object 'ADOコネクション用オブジェクトの宣言
  Set cn = CreateObject("ADODB.Connection") 'ADOコネクションを作成
  
  %%{bg:yellow}%%{bg:yellow}cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          "Data Sourc%%e=" & ThisWorkbook.Path & "\Data.accdb;" 'Accessファイルを指定してコネクションを開く%%
          
  'SQL文の作成
  Dim sql As String 'SQL文用変数の宣言
  sql = _
    "INSERT INTO 販売管理(" & _
      "商品ID, " & _
      "商品名, " & _
      "売上日, " & _
      "数量, " & _
      "売価, " & _
      "製造場所, " & _
      "定価, " & _
      "原価, " & _
      "取引先, " & _
      "営業所, " & _
      "社員名) " & _
    "VALUES(" & _
      "'BL10-10', " & _
      "'青1.0mm10本セット', " & _
      "#2021/1/1#, " & _
      74 & ", " & _
      1170 & ", " & _
      "'b工場', " & _
      1300 & ", " & _
      950 & ", " & _
      "'A社', " & _
      "'東京', " & _
      "'伊藤孝');"
  
  '実行
  cn.Execute sql
  
  '接続解除
  cn.Close
  Set cn = Nothing
  
End Sub

以上です。解決策のみならず、何か不足点や疑問に思われたこと、何か解決の糸口になりそうなものでもなんでも結構です。忌憚ないご意見を賜りたく存じます。
本当に恐れ入りますが、何卒宜しくお願い致します。