ListBox - Aggiunta Databinding

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor


If Len(Trim(TextBox2.Text)) = 0 Then
Exit Sub
End If
ListBox2.DataBindings.Clear()
ListBox2.DataSource = Nothing
ListBox2.DisplayMember = String.Empty
ListBox2.Items.Clear()

sql = "Select Unita, Nominativo from PersonaleSedi where Unita = " & TextBox2.Text & " order by nominativo"

Dim da3 = New OleDb.OleDbDataAdapter
da3 = New OleDb.OleDbDataAdapter(sql, Dbazienda)
Dim Ds As New DataSet
da3.Fill(Ds, "Personale")
Dim bs3 = New BindingSource()
bs3.DataSource = Ds
bs3.DataMember = "Personale" ' aggancia il databinding alla tabella Sedi del Dataset

ListBox2.DataBindings.Add("Text", bs3, "Nominativo")
ListBox2.DataSource = Ds.Tables("Personale") ' aggancia il databinding alla tabella Sedi del Dataset
ListBox2.DisplayMember = "Nominativo"
ListBox2.Refresh()

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default