How to pass datagrid record number instead of clicking

	Sub DBEditDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs)
		DBEditDataGrid.EditItemIndex = E.Item.ItemIndex
		DataBindGrid
	End Sub

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<script language="VB" runat="server">
 Dim objConnection As SqlConnection
 Dim myDataReader As SqlDataReader 

	Sub Page_Load(Sender As Object, E As EventArgs) 
  ' Set up our connection.
  objConnection = New SqlConnection("Data Source=(local);" _
   & "Initial Catalog=teniss2;User Id=web;Password=web;" _
   & "Connect Timeout=15;Network Library=dbmssocn;")

  LoadDataFromDB

  If Not IsPostBack Then
   DataBindGrid
  End If
	End Sub

 Sub LoadDataFromDB()
  Dim objCommand As SqlCommand

  ' Create new command object passing it our SQL query
  ' and telling it which connection to use.
  objCommand = New SqlCommand("SELECT * FROM Players;", objConnection)

  ' Open the connection, execute the command, and close the connection.
  objConnection.Open()
  myDataReader = objCommand.ExecuteReader(System.Data.CommandBehavi  or.CloseConnection)
 End Sub

	Sub DataBindGrid()
		DBEditDataGrid.DataSource = myDataReader
		DBEditDataGrid.DataBind
	End Sub

	Sub DBEditDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs)
		DBEditDataGrid.EditItemIndex = E.Item.ItemIndex
		DataBindGrid
	End Sub

.......
.......