Visual studio 2010 在vb2010 isn´中插入查询；行不通

我有一个很好的查询，可以在aaccess数据库中插入数据，但是现在我试图在sqllite3数据库中插入数据，但是我在使用相同的查询时遇到了问题

Imports System.Data.Odbc

Public Class Form1
Public con As New OdbcConnection("Dsn=SQLite3 Datasource;database=C:\Users\pcampos\Desktop\spiceworks_prod.db;stepapi=0;syncpragma=NORMAL;notxn=0;timeout=100000;shortnames=0;longnames=0;nocreat=0;nowchar=0;fksupport=0;oemcp=0;bigint=0")

 Dim query As String = "INSERT INTO INSERT INTO tickets(id, summary, status)  VALUES(@id,@summary,@status )"


            con.Close()
            con.Open()
            Using cmd As New OdbcCommand(query, con)

                cmd.Parameters.AddWithValue("@id", OdbcType.VarChar).Value = test
                cmd.Parameters.AddWithValue("@sumamry", OdbcType.VarChar).Value = "ola ola ola"
                cmd.Parameters.AddWithValue("@staus", OdbcType.VarChar).Value = "close"


                Dim x As Integer = cmd.ExecuteNonQuery()
                MsgBox(x)


                If x < 1 Then
                    MessageBox.Show("Erro ao inserir", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    MessageBox.Show("Registo1 inserido com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If
            End Using

End Class

导入System.Data.Odbc
公开课表格1
Public con作为新的OdbcConnection（“Dsn=SQLite3数据源；数据库=C:\Users\pcampos\Desktop\spiceworks\u prod.db；stepapi=0；syncpragma=NORMAL；notxn=0；timeout=100000；shortnames=0；longnames=0；nocreat=0；nowchar=0；fksupport=0；oemcp=0；bigint=0”）
Dim查询为String=“插入到票据（id、摘要、状态）值（@id、@summary、@status）”
con.Close（）
con.Open（）
使用cmd作为新的OdbcCommand（query，con）
cmd.Parameters.AddWithValue（“@id”，OdbcType.VarChar）.Value=test
cmd.Parameters.AddWithValue（“@sumamry”，OdbcType.VarChar）.Value=“ola”
cmd.Parameters.AddWithValue（“@staus”，OdbcType.VarChar）.Value=“close”
Dim x As Integer=cmd.ExecuteNonQuery（）
MsgBox（x）
如果x<1，则
MessageBox.Show（“Erro ao inserir”，My.Application.Info.Title，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
Show（“Registo1 inserido com successo！”，My.Application.Info.Title，MessageBoxButtons.OK，MessageBoxIcon.Information）
如果结束
终端使用
末级

该查询不是有效的SQL。应该是这样的：

 Dim query As String = "INSERT INTO tickets (id, summary, status) VALUES( @id, @summary, @status )"

有关详细说明SQL Insert语句中关键字顺序的图表，请参见。SQL在其他基于SQL的系统上是错误的，而不仅仅是SQLite。我想我会链接到那个手册页面，因为它非常有用