COMO TRABALHAR COM BINDINGNAVIGATOR?

Citação:

Private Sub FmCadClien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

gMensagem = [Ô]Carregando as Grids Iniciais[Ô]
DtGridCliente.AutoGenerateColumns = False
DtGridContCliente.AutoGenerateColumns = False

DtGridCliente.DataSource = bsMasterClientes
DtGridContCliente.DataSource = bsChildClientes

gMensagem = [Ô]Coletando Dados para carregar o Form[Ô]
Carrega_Dados()

gMensagem = [Ô]Passando campos para controles[Ô]
txtNomeRazaoSocial.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]RazaoSocialNome[Ô])
TxtEnd.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]Endereco[Ô])
TxtNumCasa.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]NumCasa[Ô])
TxtAp.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]Apartamento_Casa[Ô])
dtpDataCadastro.DataBindings.Add([Ô]Value[Ô], Me.bsMasterClientes, [Ô]DataCadastro[Ô])
TxtBloco_Quadra.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]Bloco_Quadra[Ô])
txtBairroCli.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]Bairro[Ô])
mskCepCli.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]CEP[Ô])
txtReferencia_Observ.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]Referencia_Observ[Ô])
mskTaxaEntrega.DataBindings.Add([Ô]text[Ô], Me.bsMasterClientes, [Ô]TaxaEntrega[Ô])
mskUltimaCompra.DataBindings.Add([Ô]Text[Ô], Me.bsMasterClientes, [Ô]UltimaCompra[Ô])
Exit Sub

Catch ex As Exception
MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, [Ô]ERRO: Abrindo Form[Ô])
End Try

End Sub

Private Sub Carrega_Dados()
Dim data As New DataSet()

Try

data.Locale = System.Globalization.CultureInfo.InvariantCulture

If gCN.State = ConnectionState.Open Then gCN.Close()
gCN.Open()

gMensagem = [Ô]Adicionar dados da tabela Relacao para o DataSet.[Ô]
gSQL = [Ô]Select RazaoSocialNome, Endereco, NumCasa, Bloco_Quadra, Apartamento_Casa, Referencia_Observ, CEP, Bairro, DataCadastro, TaxaEntrega, Codigo, [Ô] _
& [Ô] FlagCliente, FlagPessoaFisica, UltimaCompra from Relacao[Ô]
Dim MasterDataAdapter As New OleDb.OleDbDataAdapter(gSQL, gCN)
MasterDataAdapter.TableMappings.Add([Ô]Table[Ô], [Ô]Relacao[Ô])
MasterDataAdapter.Fill(data, [Ô]Relacao[Ô])

gMensagem = [Ô]Adicionar dados da tabela RelacaoContato para o DataSet.[Ô]
gSQL1 = [Ô]Select Telefone, Email, Codigo from RelacaoContato[Ô]
Dim DetailsDataAdapter As New OleDb.OleDbDataAdapter(gSQL1, gCN)
DetailsDataAdapter.Fill(data, [Ô]RelacaoContato[Ô])

gMensagem = [Ô]Estabelecer uma relação entre as duas tabelas.[Ô]
Dim Relação As New DataRelation([Ô]Relacao_RelacaoContato[Ô], data.Tables([Ô]Relacao[Ô]).Columns([Ô]Codigo[Ô]), data.Tables([Ô]RelacaoContato[Ô]).Columns([Ô]Codigo[Ô]), True)
data.Relations.Add(Relação)

gMensagem = [Ô]Vincular o conector de dados mestre para a tabela Relacao.[Ô]
bsMasterClientes.DataMember = [Ô]Relacao[Ô]
bsMasterClientes.DataSource = data

gMensagem = [Ô]Vincular o conector de dados detalhes para o conector de dados mestre, [Ô] & vbNewLine _
& [Ô]usando o nome DataRelation para filtrar as informações no [Ô] & vbNewLine _
& [Ô]Detalhes tabela com base na linha atual na tabela mestre.[Ô]
bsChildClientes.DataSource = bsMasterClientes
bsChildClientes.DataMember = [Ô]Relacao_RelacaoContato[Ô]

gMensagem = [Ô]Conectar Navegador aos Dados[Ô]
bnClientes.BindingSource = bsMasterClientes

Exit Sub

Catch ex As Exception
MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, [Ô]ERRO: Relacionamento de Tabelas[Ô])
End Try

End Sub