vb.net - DatagridView から Access データベース VB.NET にデータを挿入する

Question

DataGridView から Access データベースにデータを挿入できません。INSERT INTO ステートメントの構文エラーを示しています。私を助けてください。これは私のコードです:

Try
    com = New OleDb.OleDbCommand
    com.Connection = con
    Dim atdate As Date
    Dim id As String
    Dim name As String
    Dim time As String
    Dim status As String
    For x As Integer = 0 To ATCGRID.Rows.Count - 1
      atdate = ATCGRID.Rows(x).Cells(2).Value
      id = ATCGRID.Rows(x).Cells(0).Value
      Name = ATCGRID.Rows(x).Cells(1).Value
      time = ATCGRID.Rows(x).Cells(3).Value
      status = ATCGRID.Rows(x).Cells(4).Value
      con.Open()
      str1 = "INSERT INTO EMP_ATTENDANCE(DATE,EMP_ID,EMP_NAME,EMP_TIME,EMP_STATUS)values(@DATE,@EMP_ID,@EMP_NAME,@EMP_TIME,@EMP_STATUS)"
      Dim com As New OleDb.OleDbCommand(str1, con)
      com.Parameters.AddWithValue("@DATE", atdate)
      com.Parameters.AddWithValue("@EMP_ID", id)
      com.Parameters.AddWithValue("@EMP_NAME", Name)
      com.Parameters.AddWithValue("@EMP_TIME", time)
      com.Parameters.AddWithValue("@EMP_STATUS", status)
      com.ExecuteNonQuery()
      com.Dispose()
    Next 
    con.Close()
    MessageBox.Show("Registered Successfully!", "Register", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As OleDb.OleDbException
     MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
Catch ex As Exception
    MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
End Try

Answer 1

「日付」はおそらくキーワードです。括弧内に配置してみてください: [DATE]SQL テキストに。