سؤال؟؟ ترقيم عمود في الداتا قريد تسلسليا

إخوتي الكرام

لدي داتا جريد مربوط على جدول و أضفت عمود واحد في التصميم و أريد أن يظهر في هذا العمود ترقيم متسلسل بعدد سجلات الجدول

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

هذا الكود

With DG2
			For i As Integer = 1 To .Rows.Count - 1
				DG2("Numb", i - 1).Value = i
			Next
			.Refresh()
  End With

تم حل المشكلة بهذا الكود

 With DG2
			.Columns.Add("Numb", "تسلسل")
			.Columns.Add("DName", "مسمى الدورة")
			.Columns.Add("DFrom", "من")
			.Columns.Add("Dto", "إلى")
			.Columns.Add("DPer", "مدتها")
			.Columns.Add("Dplace", "مكانها")
		End With
		For i As Integer = 0 To OleSet.Tables("Training").Rows.Count - 1

			With DG2
				.Rows.Add()
				DG2("Numb", i).Value = i + 1
				DG2("DName", i).Value = OleSet.Tables("Training").Rows(i).Item(0)
				DG2("DFrom", i).Value = OleSet.Tables("Training").Rows(i).Item(1)
				DG2("Dto", i).Value = OleSet.Tables("Training").Rows(i).Item(2)
				DG2("DPer", i).Value = OleSet.Tables("Training").Rows(i).Item(3)
				DG2("Dplace", i).Value = OleSet.Tables("Training").Rows(i).Item(4)
			End With
		Next
		With DG2
			.Columns(0).Width = 70
			.Columns(1).Width = 330
			.Columns(2).Width = 100
			.Columns(3).Width = 100
			.Columns(4).Width = 100
			.Columns(5).Width = 100
		End With

		DG2.Refresh()

ولكن هل هناك طريقة أفضل بحيث يتم ربط الداتاجريد بالبيانات بدلا من تعبئته