[0theghost0]

السلام عليكم

اتمنى المساعدة اريد حفظ بيانات التي في ListView 

الكود به اخطاء وليس خطأ

كود :

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 ListView In ListView1.Columns

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

               Dim sql As String =
        " INSERT INTO [Return_Equipment] " &
        " ( Ren_NO, Cus_Name, Cus_Private_Number, Equ_Price, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date, Ren_NO ) " &
        " VALUES " &
        " ( @Ren_NO, @Cus_Name, @Cus_Private_Number, @Equ_Price, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date, @Ren_NO ) "
               Using cmd As New OleDbCommand(sql, conn)
                   cmd.Parameters.AddWithValue("@Ren_NO", ComboBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text.ToString)
                   cmd.Parameters.AddWithValue("@Ret_Date", DateTimePicker1.Value.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(1).Value.ToString)
                   cmd.Parameters.AddWithValue("@Ren_Date", row.Cells(2).Value.ToString)
                   cmd.ExecuteNonQuery()

               End Using

           Next

           conn.Close()
       End Using

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