Problema bindingsource

Hola, necesito una ayuda...

Como hago para que cuando seleccione una fila en la tabla me devuelva la
posicion en el datasource del registro?

Este codigo es el que utilizo:

Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnBuscar.Click

Dim da As SqlDataAdapter
Dim dt As DataTable
Dim sel, scClitecsa As String

sel = "Select * from Clientes where Nombre_RazonSocial like '%" &
Me.tbNombre.Text & "%'"
scCli = "Data Source=SERVIDOR\SQLEXPRESS;Initial
CatalogÛCli;Persist Security Info=True;User
ID=sa;Password=XXXXXX;Pooling=False"

da = New SqlDataAdapter(sel, scCli)
dt = New DataTable
da.Fill(dt)

bs = New BindingSource
bs.DataSource = dt

Me.dgClientes.DataSource = dt

End Sub