vb.net ต้องการแสดงผลใน Datagrid ให้มี ลำดับแถว ทำไงครับ

Dim Table1 As Data.DataTable
Table1 = New DataTable("TEST")
Dim ds As New DataSet()
Dim Row As DataRow
Dim SEQ As Integer
Dim Col0 As DataColumn = New DataColumn("SEQ")
Col0.DataType = System.Type.GetType("System.String")

FOR LOOP

Row = Table1.NewRow()
SEQ += 1
Row.Item(0) = SEQ
Table1.Rows.Add(Row)

END FOR

ds = New DataSet()
ds.Tables.Add(Table1)
GridView1.DataSource = ds.Tables("TEST")
GridView1.DataBind()

Private Sub dg_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dg1.RowPostPaint

'สร้างเลขบรรทัด
Using b As SolidBrush = New SolidBrush(dg1.RowHeadersDefaultCellStyle.ForeColor)
e.Graphics.DrawString((e.RowIndex + 1).ToString(System.Globalization.CultureInfo.CurrentUICulture), _
sender.DefaultCellStyle.Font, _
b, _
e.RowBounds.Location.X + 40, _
e.RowBounds.Location.Y + 3, _
A_Right)
End Using
End Sub

Private Sub dg_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dg1.RowPostPaint

'สร้างเลขบรรทัด
Using b As SolidBrush = New SolidBrush(dg1.RowHeadersDefaultCellStyle.ForeColor)
e.Graphics.DrawString((e.RowIndex + 1).ToString(System.Globalization.CultureInfo.CurrentUICulture), _
sender.DefaultCellStyle.Font, _ 'error ตรงDefaultCellStyle
b, _
e.RowBounds.Location.X + 40, _
e.RowBounds.Location.Y + 3, _
A_Right)     'error ตรงA_Right
End Using
End Sub

Dim cmdBuilder As System.Text.StringBuilder = New cmdBuilder As System.Text.StringBuilder()

cmdBuilder.AppendLine("SELECT ROW_NUMBER() ")
cmdBuilder.AppendLine("      OVER (ORDER BY GenerateFG_Details.SectionControl,Production.ProductionID) AS RowNo")
cmdBuilder.AppendLine("   ,Production.ProductionID,GenerateFG_Details.SectionControl")
cmdBuilder.AppendLine("FROM GenerateFG_Details")
cmdBuilder.AppendLine("    Inner Join Production")
cmdBuilder.AppendLine("       ON (GenerateFG_Details.GenerateID = Production.GenerateID)")
cmdBuilder.AppendLine("Where (Production.ProductionID=@ProductionID)")
cmdBuilder.AppendLine("GROUP BY GenerateFG_Details.SectionControl,Production.ProductionID")

With com
   .CommandText = cmdBuilder.ToString()
   .CommandType = CommandType.Text
   .Connection = Conn
   .Parameters.Clear()
   .Parameters.Add("@ProductionID", SqlDbType.NVarChar).Value = cboGenFG.SelectedValue.ToString()
   dr = .ExecuteReader()
End With

public int iRow = 0;
  
   protected void Gridview_RowCreated(object sender, GridViewRowEventArgs e)
    {
        iRow = e.Row.DataItemIndex + 1;
    }

'สร้าง DataGridView ใช้ชื่อว่า "dg1"

Public Class F14ShowRowIndex
    Private dt As New DataTable

    Private Sub Form32_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("ItmeName", GetType(System.String))
        For i As Integer = 0 To 10
            Dim dr As DataRow = dt.NewRow
            dr(0) = "บรรทัดที่ " & i
            dt.Rows.Add(dr)
        Next
        Dim ColA As New DataGridViewTextBoxColumn
        With ColA
            .ReadOnly = True
            .Name = "Index"
        End With

        Dim ColB As New DataGridViewTextBoxColumn
        With ColB
            .DataPropertyName = "ItmeName"
            .Name = "ItmeName"
            .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        End With

        With dg1
            .AutoGenerateColumns = False
            .Columns.AddRange(New DataGridViewColumn() {ColA, ColB})
            .DataSource = dt
        End With

    End Sub

    Private Sub dg_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) _
   Handles dg1.RowPostPaint
        'สร้างเลขบรรทัด
        Using b As SolidBrush = New SolidBrush(dg1.RowHeadersDefaultCellStyle.ForeColor)
            e.Graphics.DrawString((e.RowIndex + 1).ToString(System.Globalization.CultureInfo.CurrentUICulture), _
                  sender.DefaultCellStyle.Font, _
                  b, _
                  e.RowBounds.Location.X + 40, _
                  e.RowBounds.Location.Y + 3, _
                  New StringFormat(StringFormatFlags.DirectionRightToLeft))
        End Using
        Me.dg1("Index", e.RowIndex).Value = e.RowIndex
    End Sub

End Class