Here is a simple solution that may be suffice for you.
Add a template field to the gridview control
Add a label to the template field
After databinding the gridview call the sub below
Protected Sub RankGrid()
Dim lblRank2 As Label
Dim Rank As Integer = 0
Dim e As GridViewRow
For Each e In GridView1.Rows
lblRank2 = CType(e.FindControl("lblRank"), Label)
Rank += 1
lblRank2.Text = Rank.ToString()
Next
End Sub
Hope this helps...