[SQL] مشكلة في كود الحذف ولا اغلم ما هو السبب

كود :
Imports System.Data.OleDb



Public Class Form1



    'أكواد الاتصال و التعريف المتغيرات



    Public connAcess2007 As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATABASE\DATA.accdb")



    Dim alfaisal As New DataTable



    Public Sub alfaisal_load()



        alfaisal.Clear()



        Dim cmd As New OleDbCommand("select * from alfaisal ", connAcess2007)

        connAcess2007.Open()

        alfaisal.Load(cmd.ExecuteReader)

        DataGridView1.DataSource = alfaisal

        connAcess2007.Close()





    End Sub





    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        alfaisal_load()





    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



        'أكواد البحث



        alfaisal.Clear()

        Dim cmd As New OleDbCommand("select * from alfaisal where Articlefood like @Articlefood ", connAcess2007)

        cmd.Parameters.Add("@Articlefood", OleDbType.VarChar).Value = "%" & TextBox1.Text.Trim & "%"



        connAcess2007.Open()

        alfaisal.Load(cmd.ExecuteReader)

        DataGridView1.DataSource = alfaisal

        connAcess2007.Close()





    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click





        'أكواد الاضافة



        Dim cmd As New OleDbCommand("insert into alfaisal (ArticleFood,TradeName,country,PackageType,PackageWeight,TheResult,Comments)values(@ArticleFood,@TradeName,@country,@PackageType,@PackageWeight,@TheResult,@Comments)", connAcess2007)

        cmd.Parameters.Add("@Articlefood", OleDbType.VarChar).Value = TextBox2.Text.Trim

        cmd.Parameters.Add("@TradeName", OleDbType.VarChar).Value = TextBox3.Text.Trim

        cmd.Parameters.Add("@country", OleDbType.VarChar).Value = TextBox4.Text.Trim

        cmd.Parameters.Add("@PackageType", OleDbType.VarChar).Value = TextBox5.Text.Trim

        cmd.Parameters.Add("@PackageWeight", OleDbType.VarChar).Value = TextBox6.Text.Trim

        cmd.Parameters.Add("@TheResult", OleDbType.VarChar).Value = TextBox7.Text.Trim

        cmd.Parameters.Add("@Comments", OleDbType.VarChar).Value = TextBox8.Text.Trim



        connAcess2007.Open()

        cmd.ExecuteNonQuery()

        connAcess2007.Close()



        alfaisal_load()



    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click





        'اكواد الحذف



        Dim postion As Integer = DataGridView1.CurrentRow.Index

        Dim id_postion = DataGridView1.Rows(postion).Cells("id").Value



        Dim cmd As New OleDbCommand("delete feom alfaisal where id = " & id_postion, connAcess2007)





        connAcess2007.Open()

        cmd.ExecuteNonQuery()

        connAcess2007.Close()



        alfaisal_load()



    End Sub

End Class