перемещение по DataGrid c помощью BindingNavig

[asulab]

Вопрос заключается в следующем: привязал DataTable к DataGrid и к BindingNavigator, но при перемещении с помощью BindingNavigator курсор в DataGrid стоит на месте. Вот код подскажите неразумному что не так.

Код: Выделить всё


Dim BN As New BindingSource
Dim oDataSet As New DataSet
Dim oDataTable As DataTable = oDataSet.Tables.Add("Data")
frmSelect.grdName.DataSource = oDataSet
frmSelect.grdName.DataMember = "Data"
BN.DataSource = frmSelect.grdName.DataSource
BN.DataMember = frmSelect.grdName.DataMember
frmSelect.bnName.BindingSource = BN


[temur]

Код: Выделить всё

Dim BN As New BindingSource
Dim oDataSet As New DataSet
Dim oDataTable As DataTable = oDataSet.Tables.Add("Data")
BN.DataSource = oDataSet 
BN.DataMember = "Data"

frmSelect.bnName.BindingSource = BN

'Насколько я понял ДатаГрид это grdName тогда

frmSelect.grdName.DataSource = BN 

Если этот код записан в форме frmSelect используй Me вместо frmSelect