اريد تصحيح كود حفظ من داتاقريد الى جدول

السلام عليكم ورحمة الله وبركاته

كما هو عشمنا فيكم المساعدة جزاكم الله خيرا

استعملت هذا الكود منذ مدة لاكتشف فيه خطأ قاتلا

هو ان عند ادخال ا لبيانات في الداتاقريد و التسجيل لا يتم الحفظ السطر الجديد الذي تفادينا مشكتله في الجملة الموحودة في كود الحفظ

If GridMatiere.Rows(i).IsNewRow = False Then

كيف يكمن تسجيل البيانات من هذا السطر الدي لم يتم الانتقال منه في الداتا قريد

حاولت الاتفاف حول المشكل بجعل كرسر الحفظ ينتقل الى السطر الموالي قبل بدئ عملية التسجيل لكن لم اتمكن من ايجاد الكود الصحيح ارجو المساعدة

و استعملت هذا الكودلكنه لا ينقل التحديد فقط ولا يتم الحفظ

Me.GridMatiere.ClearSelection()
    	Me.GridMatiere.Rows(Me.GridMatiere.Rows.Count - 1).Cells(1).Selected = True
    	Me.GridMatiere.Rows(Me.GridMatiere.Rows.Count - 1).Selected = True

هذا هو الكود الذي استعمله للحفظ

Dim i As Integer = 0
    	SavInto.Connection = Conn
    	SavInto.CommandType = CommandType.Text
    	Do While i < GridMatiere.Rows.Count
        	If GridMatiere.Rows(i).IsNewRow = False Then
            	SavInto.CommandText = "INSERT INTO TabEtapesQoran3( Qoran )" & _
             			"values('" & GridMatiere.Rows(i).Cells(0).Value & "')"
            	Conn.Open()
            	SavInto.ExecuteNonQuery()
            	Conn.Close()
            	GridMatiere.Rows(i).Cells(0).Value = ""
        	End If
        	i += 1
    	Loop