[VB.NET] ارجو من العضو الطالب او اي شخص ذو خبره عالية الدخول كود الحفظ

كود :

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

            conn.Open()

            Dim sql As String =

                "INSERT INTO [Return_Equipment]" &

                "( [Ren_NO], [Cus_Name], [Cus_Private_Number], [Equ_Price], [Equ_Name], [Equ_Quantity], [Ren_Date] )" &

                "VALUES" &

                "( @Ren_NO,  @Cus_Name,  @Cus_Private_Number,  @Equ_Price,  @Equ_Name,  @Equ_Quantity,  @Ren_Date )"

            Using cmd As New OleDbCommand(sql, conn)

                For Each itm As ListViewItem In ListView1.Items

                    cmd.Parameters.Clear()

                    cmd.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))

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

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

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

                    cmd.Parameters.AddWithValue("@Equ_Name", itm.SubItems(0).Text)

                    cmd.Parameters.AddWithValue("@Equ_Quantity", itm.SubItems(1).Text)

                    cmd.Parameters.AddWithValue("@Ren_Date", itm.SubItems(2).Text)

                    cmd.ExecuteNonQuery()

                Next

            End Using

            conn.Close()

        End Using

        MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

كود :

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll



Additional information: Syntax error (missing operator) in query expression '  @Cus_Name'.