لدي مشكلة صغيرة بعد حل المشكلة الاولى DataGridView vb.net2015

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

            conn.Open()



            For Each row As DataGridViewRow In DataGridView1.Rows



                If row.Cells(0).Value Is Nothing Then Exit For



                Dim sql As String =

" INSERT INTO [Rent_Equipment] " &

" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &

" VALUES " &

" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "

                Using cmd As New OleDbCommand(sql, conn)

                    cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)

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

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

                    cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text.ToString)

                    cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.ToString)



                    cmd.ExecuteNonQuery()



                End Using



            Next



            conn.Close()

        End Using



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