Access vba csvファイルをインポートする方法

Sub txtfile_inport_sample()

  DoCmd.SetWarnings False
  DoCmd.RunSQL "DELETE * FROM data"　　’-------------(1)

  DoCmd.TransferText acImportFixed, "GIGYOSHO インポート定義", "data", "d:\GIGYOSHO.txt"
  
  On Error Resume Next
  DoCmd.DeleteObject acTable, "GIGYOSHO_インポート エラー"   '-----------(2)
  On Error GoTo 0
  DoCmd.SetWarnings True

End Sub

【解説】
（１）インポートする前にテーブル「data」のレコードをすべて削除しています。
（２）インポート エラーが出た場合「GIGYOSHO_インポート エラー」というテーブルが自動的に作成されます。ここでは自動的にこのテーブルを削除すています。

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()

    DoCmd.TransferText acImportDelim, , "M_製品", "c:\テスト.csv"

End Sub

[起きたエラー]

「テキストファイルの指定○○が存在しません」エラー