ช่วยหน่อยนะคะ update แบบวน loop พอกดบันทึกค่าใน database เปลี่ยนตามที่ต้องการค่ะแต่มันerror มีภาพประกอบค่ะ T^T

For i As Integer = 0 To DgvPackage.Rows.Count - 1

                Dim sb As New StringBuilder
                Dim s2 As String = ""

                sb.Append("Update SALEPACKAGE set Coupons_Remain = @cou")
                sb.Append(" where Member_ID = @memid and Package_ID = @pid")


                s2 = sb.ToString

                Dim cm1 As New SqlCommand
                With cm1
                    .CommandType = CommandType.Text
                    .CommandText = s2
                    .Connection = cn
                    .Parameters.Clear()

                    .Parameters.Add("@memid", SqlDbType.NVarChar, 6).Value = TxtID.Text
                    .Parameters.Add("@pid", SqlDbType.NVarChar, 6).Value = DgvPackage.Rows(i).Cells(0).Value.ToString.Trim
                    .Parameters.Add("@cou", SqlDbType.Int).Value = CInt(DgvPackage.Rows(i).Cells(2).Value)

                    .ExecuteNonQuery() [img][/img]

                End With
            Next
            'TxtNote.Text = DgvPackage.Rows(0).Cells(0).Value
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้วค่ะ") For i As Integer = 0 To DgvPackage.Rows.Count - 1