INSERT INTOステートメント構文エラー

質問

はじめまして。
急遽VB6.0、Accessで開発を行うことになりまして、小さなアプリを練習がてら作成したのですが、上記エラーが出てしまい、困っています。当方まったくの初心者で本を片手にコーディングしております。。

機能：CSVからデータを取り出して、DBにINSERTする

コード

Private cn As New ADODB.Connection
Private Rs As New ADODB.Recordset

Private Sub フォームフッター_Click()

End Sub

Private Sub トグル27_Click()

Dim filPath As String

' ［ファイルを開く］ダイアログ
WizHook.Key = 51488399

damy = WizHook.GetFileName(0, "", "", "", filPath, "", "すべてのファイル (*.*)|*.*", 0, 0, 0, True)
Me!fp = filPath

WizHook.Key = 0

End Sub

Private Sub トグル28_Click()

Set cn = CurrentProject.Connection

Open Me!fp For Input As #1
Dim varData As Variant
Dim buf As String
Dim a As String
Dim b As String
Dim c As String

Do Until EOF(1)
Line Input #1, buf
varData = Split(buf, ",", , vbTextCompare)

Dim mySql As String

a = varData(0)
b = varData(1)
c = varData(2)

MsgBox a
MsgBox b
MsgBox c

mySql = "INSERT INTO COUNT(f,s,t) VALUES ('" & a & "','" & b & "','" & c & "')"
Debug.Print mySql
cn.Execute (mySql)
MsgBox "更新されました。"

Loop

Close #1
cn.Close

End Sub

テーブル：
フィールド名　f,s,t すべてテキスト型

イミディエイトウィンドウ表示内容：INSERT INTO COUNT(f,s,t) VALUES ('1','2','3')

恐れ入りますが、ご教授いただければ幸いです。

よろしくお願いします！

回答No.1

chie65536（@chie65535） · ベストアンサー

「COUNT」は、SQL文の予約語なので、そのままではテーブル名には使用できません。

予約語ではなく、テーブル名である事を明示する必要があるので

INSERT INTO [COUNT] ( f, s, t ) VALUES ('1', '2', '3');

のように「COUNT」を　[　]　で囲む必要があります。

お礼

早急に回答くださってありがとうございます！！
まさかテーブル名が原因だったとは・・・盲点でした。

今試してみたところ、無事にINSERTが成功しました。
本当にありがとうございました！！