مشكلة محيرتني في التعديل

السلام عليكم

عندما أعمل تعديل في البيانات تظهر لي هذه الرسالة:

Must declare the scalar variable "@ID"

والحقيقة أنا أحترت كيف أعالج المشكلة ، وهذا هو الكود:

	Protected Sub butEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butEdit.Click
		If ConnectionState.Open Then cn.Close()

		Dim EditCommand As SqlCommand = New SqlCommand
		cn.Open()
		EditCommand.Connection = cn
		EditCommand.CommandText = "update article set title=@title, nameA = @nameA, chc=@chc, subA=@subA, sub=@sub, dd=@dd ,sort=@sort, noVisitor=@noVisitor where ID =@ID "
		With EditCommand.Parameters
			.Clear()
			With EditCommand.Parameters
				.Clear()
				.AddWithValue("@title", txtTitle.Text)
				.AddWithValue("@nameA", txtName.Text)
				.AddWithValue("@chc", cbMain.Text)
				.AddWithValue("@subA", FreeTextBox2.Text)
				.AddWithValue("@sub", FreeTextBox1.Text)
				.AddWithValue("@dd", TextBox1.Text)
				.AddWithValue("@sort", DropDownList1.Text)
				.AddWithValue("@noVisitor", txtnoVisitor.Text)

			End With

		End With
		EditCommand.ExecuteNonQuery()


		cn.Close()
		EditCommand.Dispose()
		EditCommand = Nothing

	End Sub

وشاكر لكم مقدما