BindingSource with ComboBox

[Benniit]

'Nothing gets populated and the autocomplete feature does not work as well. Please review the code for me. Thanks

'Connection established already 
SQLCon.ConnectionString = DataL1
SqlQuery = "Select * from Users order by  UserName asc"
ds = New DataSet 
da = New SqlDataAdapter(SqlQuery, SQLCon)
Try
    da.Fill(ds, "Users")
    Dim bs = new BindingSource()
    bs.DataSource = ds.Tables(0)
    frmtracking.cboFrom1.DataSource = bs
 
    Dim bs1 = new BindingSource()
    bs1.DataSource = ds.Tables(0)
    frmtracking.cboFrom2.DataSource = bs1
 
    .... repeat for the other combos
 
 
    Dim col As New AutoCompleteStringCollection
    Dim i As Integer
    For i = 0 To dTable.Tables(0).Rows.Count - 1
        col.Add(dTable.Tables(0).Rows(i)("UserName").ToString.Trim())
    Next
    frmTracking.cboTo1.AutoCompleteSource = AutoCompleteSource.CustomSource
    frmTracking.cboTo1.AutoCompleteCustomSource = col
    frmTracking.cboTo1.AutoCompleteMode = AutoCompleteMode.Suggest
 
 
    frmTracking.cboFrom1.AutoCompleteSource = AutoCompleteSource.CustomSource
    frmTracking.cboFrom1.AutoCompleteCustomSource = col
    frmTracking.cboFrom1.AutoCompleteMode = AutoCompleteMode.Suggest
 
 

[kadghar]

For populating, try using the DataSet directly:

cboFrom2.Datasource = ds.Tables(0)

For the autocomplete, it seems fine, but I use this syntax instead:

col.Add(dTable.Tables(0).Rows(i).Item("UserName").ToString.Trim())

HTH