[أمجد وضاح]

خطاْ في الإستعلام
عملت هذا
 

كود :

Protected Sub InsertNew()
      Try
          Dim conn As New SqlConnection
      conn.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionStringCompanyAwaedo").ConnectionString
      conn.Open()
      Dim Sql As String = "INSERT INTO TContent(FIDContent, ContentDaTi, ContentTitle, ContentSummary, ContentImage, ContentText) Values (@ContentText, @ContentDaTi, @ContentTitle, @ContentSummary, @ContentImage, @ContentText)"
      Dim cmd As SqlCommand = New SqlCommand(Sql, conn)
      cmd.Parameters.AddWithValue("@FIDContent", TxTCategory.SelectedValue)
      cmd.Parameters.AddWithValue("@ContentTitle", TxTTitle.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentDaTi", Date.Now.ToString("yyyy/MM/dd"))
      cmd.Parameters.AddWithValue("@ContentSummary", TxTSumm.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentImage", TxTImage.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentText", TxTMore.Text.Trim)
          cmd.ExecuteScalar()
      conn.Close()
      Lbmsg.BackColor = Drawing.Color.Green
      Lbmsg.ForeColor = Drawing.Color.White
      Lbmsg.Text = "تم إضافة المحتوى بنجاح"
      Catch ex As Exception
          Lbmsg.BackColor = Drawing.Color.Red
          Lbmsg.ForeColor = Drawing.Color.White
          Lbmsg.Text = "لم يتم إضافة المحتوى" + ex.ToString
      End Try
  End Sub

ويظهرلي خطأ  في هذا السطر

كود :

  cmd.ExecuteScalar()

ولما احذفه يقولي تمام ولايضاف شي
ماهو الحل