ต้องการเพิ่มคอลัมน์ลำดับใน Datagridview ให้แสดงเอง อัตโนมัติ แต่เกิด error รบกวนหน่อยนะคะ

Private Sub frmTeaching_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        user_id = frmMain.user_idLogin  'สำหรับแสดงข้อมูล SQL ตาม user ที่ login 
        strsql = "Data Source=localhost; Initial Catalog=KU_OCR; Integrated Security= true"
        con.ConnectionString = strsql
        con.Open()

        strsql = " Select Register.resub_id , Register.sub_id , Subject.sub_name , Register.re_year , Register.term , Register.lectures , Register.laboratory from Register join Subject on Subject.sub_id = Register.sub_id join Teaching on Teaching.sub_id = Register.sub_id join Teacher on Teacher.teac_id = Teaching.teac_id where Teacher.teac_id = '" & user_id & "'"
        dtAdapter = New SqlDataAdapter(strsql, con)
        dtAdapter.Fill(dt)
        Me.dgvSubject.DataSource = dt


        With dgvSubject
            If .RowCount > 0 Then
                Dim i As Integer = 0
                For i = 0 To dgvSubject.Rows.Count - 1
                    .Columns(0).HeaderText = "ลำดับ"
                    dgvSubject.Rows(i).Cells(0).Value = i + 1
                    .Columns(1).HeaderText = "รหัสลงทะเบียน"
                    .Columns(2).HeaderText = "รหัสวิชา"
                    .Columns(3).HeaderText = "ชื่อวิชา"
                    .Columns(4).HeaderText = "ปีการศึกษา"
                    .Columns(5).HeaderText = "ภาคเรียน"
                    .Columns(6).HeaderText = "หมู่บรรยาย"
                    .Columns(7).HeaderText = "หมู่ปฏิบัติ"
                Next
            End If
        End With
    End Sub