[VB.NET] هل يوجد خطا في الكود الحذف تبعي ؟؟

كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        Dim sql As String =

            " DELETE FROM [Saller] " &

            " WHERE " &

            " (  Saller_Company,  Saller_Adderess,  Saller_Name,  Saller_Skype, Saller_Email, Saller_Email0, Saller_Phone, Saller_Phone0, Saller_Contry ) " &

            " VALUES " &

            " ( @Saller_Company, @Saller_Adderess, @Saller_Name, @Saller_Skype, @Saller_Email, @Saller_Email0, @Saller_Phone, @Saller_Phone0, @Saller_Contry ) "



        Dim cmd As New OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@Saller_Company", TextBox1.Text)

        cmd.Parameters.AddWithValue("@Saller_Adderess", TextBox2.Text)

        cmd.Parameters.AddWithValue("@Saller_Name", ComboBox1.Text)

        cmd.Parameters.AddWithValue("@Saller_Skype", TextBox3.Text)

        cmd.Parameters.AddWithValue("@Saller_Email", TextBox4.Text)

        cmd.Parameters.AddWithValue("@Saller_Email0", TextBox5.Text)

        cmd.Parameters.AddWithValue("@Saller_Phone", TextBox6.Text)

        cmd.Parameters.AddWithValue("@Saller_Phone0", TextBox7.Text)

        cmd.Parameters.AddWithValue("@Saller_Contry", TextBox8.Text)





        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()



        MessageBox.Show("The data has been deleted successfully", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)