seleccionar una fila de un datagridview con un click

[yoguille]

me contesto solo ya que nadie me ayudo.
avilite el hipervinculo de seleccionar del GridVieb, le hice doble click a la grilla y ´puse esto:

Protected Sub GRDgrilla2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GRDgrilla2.SelectedIndexChanged
Dim Row As GridViewRow = GRDgrilla2.SelectedRow
Dim celCod As String = Row.Cells(1).Text
Dim celNom As String = Row.Cells(2).Text
Dim celDesc As String = Row.Cells(3).Text
Dim celStock As Integer = Convert.ToInt32(Row.Cells(4).Text)
Dim celPreCos As Integer = Convert.ToInt32(Row.Cells(5).Text)
Dim celPreVen As Integer = Convert.ToInt32(Row.Cells(6).Text)

Dim Dt As DataTable = New DataTable("miTable")

Dim cel1 As New DataColumn("Codigo", GetType(String))
Dim cel2 As New DataColumn("Nombre", GetType(String))
Dim cel3 As New DataColumn("Descripcion", GetType(String))
Dim cel4 As New DataColumn("Stock_minimo", GetType(Integer))
Dim cel5 As New DataColumn("Precio_costo", GetType(Integer))
Dim cel6 As New DataColumn("Precio_venta", GetType(Integer))

Dt.Columns.Add(cel1)
Dt.Columns.Add(cel2)
Dt.Columns.Add(cel3)
Dt.Columns.Add(cel4)
Dt.Columns.Add(cel5)
Dt.Columns.Add(cel6)

Dim Rw As DataRow = Dt.NewRow()

Rw("Codigo") = celCod
Rw("Nombre") = celNom
Rw("Descripcion") = celDesc
Rw("Stock_minimo") = celStock
Rw("Precio_costo") = celPreCos
Rw("Precio_venta") = celPreVen

Dt.Rows.Add(Rw)

GRDgrilla2.DataSource = Dt
GRDgrilla2.DataBind()





End Sub
este codigo permite seleccionar la fila deceada