请问，怎么在dagagrid中增加一列用来显示序号，或者怎样在行标头中显示序号？

window窗体中的dagagrid是在程序里写的程序邦定的，然后又加了样式：
    Private Sub dgListDataBind()
        Dim dgStyle As New DataGridTableStyle
        Me.sqlStr = "select * from TBL_WATCH_NOTE order by indate Desc"
        ds.Clear()
        ds = mydb.ExeToDataset(sqlStr, mydb.GetConn(Self.Connections.业务库))
        dgStyle.BackColor = Color.WhiteSmoke
        dgStyle.MappingName = ds.Tables(0).TableName
        Me.dgList.TableStyles.Clear()
        Me.dgList.TableStyles.Add(dgStyle)
        Me.dgList.DataSource = ds.Tables(0).DefaultView
        Me.dgList.TableStyles(0).GridColumnStyles("NOTEID").Width = 0
        Me.dgList.TableStyles(0).GridColumnStyles("USERNAME").HeaderText = "值班人"
        Me.dgList.TableStyles(0).GridColumnStyles("Leader").HeaderText = "带班人"
        Me.dgList.TableStyles(0).GridColumnStyles("Replacer").HeaderText = "替班人"
        Me.dgList.TableStyles(0).GridColumnStyles("NOTE").HeaderText = "内容"
        Me.dgList.TableStyles(0).GridColumnStyles("NOTE").Width = 300
        Me.dgList.TableStyles(0).GridColumnStyles("TM").HeaderText = "发布日期"
        Me.dgList.TableStyles(0).GridColumnStyles("INDATE").Width = 0
    End Sub
现在想给dagagrid中加一列用来显示序号，或者在行标头中显示序号，请问该怎么做？