CARREGAR DADOS COMBOBOX + LISTBOX VIA BANCO

SUMAEMY 10/11/2015 10:06:22
#453675

Pessoal bom dia,
estou precisando da ajuda de vcs

Private Sub Carregar_Coletor()
Try
[ô]abre a conexão com o banco de dados
connBD = New OleDbConnection(conexao2)
connBD.Open()
Catch ex As Exception
MessageBox.Show(([Ô]Erro na conexão ...[Ô] + ex.Message))
End Try
Dim sqlStr As String

sqlStr = [Ô]select * from coletor_disponivel where coletor_ativo = [ô][Ô] & [Ô]Sim[Ô] & [Ô][ô][Ô]
[ô] sqlStr = [Ô]select * from coletor_disponivel where coletor_ativo = [ô][Ô] & [Ô]Não[Ô] & [Ô][ô][Ô]

[ô]Instancia um DataAdapter passando a instrucao SQL e a conexão
da = New OleDbDataAdapter(sqlStr, connBD)

[ô]Instancia o dataset
objds = New DataSet()

[ô]Obtem a Coleção que fornece o mapeamento mestre
[ô] entre a tabela fonte e o datatable
da.TableMappings.Add([Ô]Table[Ô], [Ô]coletor_disponivel[Ô])

[ô]Usa um data adapter para preencher o dataset ou datable com
[ô] os dados retornados da instrução
da.Fill(objds)
[ô]Quando vinculamos um DataSet, a plataforma .NET automaticamente usa o
[ô]DataViewManager correspondente fornecido atraves da propriedade DataSet.DefaultViewManager
Me.dvm = objds.DefaultViewManager

Me.ColetorComboBox.DataSource = Me.dvm
[ô]exibe a [Ô]tabelaClientes.CompanyName no ComboBox
Me.ColetorComboBox.DisplayMember = [Ô]coletor_disponivel.Coletor[Ô]
Me.ColetorComboBox.ValueMember = [Ô]coletor_disponivel.ID_Coletor[Ô]

[ô]Efetua a vinculação com os controles TextBox

Me.TextBox2.DataBindings.Add([Ô]text[Ô], Me.dvm, [Ô]coletor_disponivel.id_Coletor[Ô])
[ô] fecha a conexão com o banco de dados
Me.connBD.Close()

End Sub

o que eu gostaria de fazer é:
Ao salvar a informaçao no banco e clicar em novo registro o combobox atualiza automaticamente com os itens do banco que possuem a opção SIM
da forma em que esta o codigo, ao salvar e clicar em novo registro ele da o erro:
Isto gera duas ligações na coleção para ligar à mesma propriedade. Nome do parâmetro: binding