DataCombo - Datasource

DOPO SELEZIONATO IL COMBO

Dim sql As String = "select * from Operaio where Nominativo= '" & OperaioComboBox1.Text & "'"
        Dim cmd As New OleDb.OleDbCommand(sql, Dbazienda)
         Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
        Do While dr.Read
            Operaio.Text = (dr.Item("Id") & " - " & dr.Item("Nominativo"))
            MyOperaio = dr.Item("Id")
            MyCliente = 0
            Cliente.Text = ""
        Loop

Sql = "Select * from Articoli order by Articolo"
DatSet = New DataSet("Articoli")
DatAdpter = New OleDb.OleDbDataAdapter(Sql, Dbazienda)
DatAdpter.Fill(DatSet, "Articoli")
BindSrc = New BindingSource
BindSrc.DataSource = DatSet
BindSrc.DataMember = "Articoli"
'ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", BindSrc, "Articolo"))

'ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedItem", BindSrc, "Id"))

ComboBox1.DisplayMember = "Articolo"
ComboBox1.ValueMember = "id"
ComboBox1.DataSource = DatSet.Tables("Articoli")

DOPO SELEZIONATO IL COMBO

Dim sql As String = "select * from Operaio where Nominativo= '" & OperaioComboBox1.Text & "'"
Dim cmd As New OleDb.OleDbCommand(sql, Dbazienda)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
Do While dr.Read
Operaio.Text = (dr.Item("Id") & " - " & dr.Item("Nominativo"))
MyOperaio = dr.Item("Id")
MyCliente = 0
Cliente.Text = ""
Loop