INSERT INTO 语句的语法错误 请大虾指教

大虾指点啊 哪出错了  CODE Imports Microsoft.VisualBasic 
Imports System 
Imports System.Collections 
Imports System.IO 
Imports System.Web 
Imports System.Web.UI 
Imports System.Web.UI.WebControls 
Imports System.Web.UI.HtmlControls 
Imports System.Drawing 
Imports System.data 
Imports System.Data.OleDb 
Imports System.Web.Security 
Imports gbook.Tcrazy_zl 
Public Class gbook 
    Inherits basepage #Region " Web 窗体设计器生成的代码 "     '该调用是 Web 窗体设计器所必需的。 
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()     End Sub 
    Protected WithEvents username As System.Web.UI.WebControls.TextBox 
    Protected WithEvents homepage As System.Web.UI.WebControls.TextBox 
    Protected WithEvents qq As System.Web.UI.WebControls.TextBox 
    Protected WithEvents content As System.Web.UI.WebControls.TextBox 
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator 
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator 
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator 
    Protected WithEvents RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator 
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator 
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button 
    Protected WithEvents email As System.Web.UI.WebControls.TextBox 
    Protected WithEvents image As System.Web.UI.WebControls.DropDownList     '注意: 以下占位符声明是 Web 窗体设计器所必需的。 
    '不要删除或移动它。 
    Private designerPlaceholderDeclaration As System.Object     Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 
        '不要使用代码编辑器修改它。 
        InitializeComponent() 
    End Sub #End Region     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        '在此处放置初始化页的用户代码 
    End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim conn As OleDbConnection 
        Dim Cmd As OleDbCommand 
        Dim sql As String 
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & Server.MapPath("gbook.mdb")) 
        conn.Open() 
        sql = "insert into gbook(username,email,homepage,qq,image,content,posttime) values (@username,@email,@homepage,@qq,@image,@content,@posttime)" 
        Cmd = New OleDbCommand(sql, conn) 
        Cmd.Parameters.Add("@username", OleDbType.VarChar, 50).Value = FormatStr(Trim(username.Text)) 
        Cmd.Parameters.Add("@email", OleDbType.VarChar, 50).Value = FormatStr(Trim(email.Text)) 
        Cmd.Parameters.Add("@homepage", OleDbType.VarChar, 50).Value = FormatStr(Trim(homepage.Text)) 
        Cmd.Parameters.Add("@qq", OleDbType.VarChar, 50).Value = FormatStr(Trim(qq.Text)) 
        Cmd.Parameters.Add("@image", OleDbType.VarChar, 50).Value = FormatStr(Trim(image.SelectedItem.Value)) 
        Cmd.Parameters.Add("@content", OleDbType.VarChar, 800).Value = FormatStr(Trim(content.Text)) 
        Cmd.Parameters.Add("@posttime", OleDbType.VarChar).Value = Date.Now 
        Cmd.ExecuteNonQuery() 
        conn.Close() 
        Response.Redirect("index.aspx")     End Sub End Class “/gbook”应用程序中的服务器错误。 
-------------------------------------------------------------------------------- INSERT INTO 语句的语法错误。  
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。  异常详细信息: System.Data.OleDb.OleDbException: INSERT INTO 语句的语法错误。 源错误:  
行 65：         Cmd.Parameters.Add("@content", OleDbType.VarChar, 800).Value = FormatStr(Trim(content.Text)) 
行 66：         Cmd.Parameters.Add("@posttime", OleDbType.VarChar).Value = Date.Now 
行 67：         Cmd.ExecuteNonQuery() 
行 68：         conn.Close() 
行 69：         Response.Redirect("index.aspx") 
  源文件: E:\gbook\gbook\add.aspx.vb    行: 67  堆栈跟踪:  
[OleDbException (0x80040e14): INSERT INTO 语句的语法错误。] 
   System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) 
   System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) 
   System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) 
   System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) 
   System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) 
   System.Data.OleDb.OleDbCommand.ExecuteNonQuery() 
   gbook.gbook.Button1_Click(Object sender, EventArgs e) in E:\gbook\gbook\add.aspx.vb:67 
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) 
   System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) 
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) 
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) 
   System.Web.UI.Page.ProcessRequestMain()   
-------------------------------------------------------------------------------- 
版本信息: Microsoft .NET Framework 版本:1.1.4322.573; ASP.NET 版本:1.1.4322.573