Добавить автозаполнение в текстовое поле в vb.net

Question

Я создал код для автозаполнения, но не знаю, почему он не работает.

Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click 
    txtledgersearch.AutoCompleteMode = AutoCompleteMode.Suggest 
    txtledgersearch.AutoCompleteSource = AutoCompleteSource.CustomSource 
    Dim DataCollection As New AutoCompleteStringCollection() 
    getData(DataCollection) 
    txtledgersearch.AutoCompleteCustomSource = DataCollection 

End Sub 
Private Sub getData(ByVal dataCollection As AutoCompleteStringCollection) 
    On Error Resume Next 
    Dim adapter As New OleDbDataAdapter 
    con = New OleDbConnection(connectionString) 
    con.Open() 
    Dim dt As New DataTable 
    Dim ds As New DataSet 

    sqlstr = "SELECT LedgerTab.lname FROM LedgerTab;" 

    ds.Tables.Add(dt) 
    adapter.SelectCommand = New OleDbCommand(sqlstr, con) 
    For Each row As DataRow In ds.Tables(0).Rows 
     dataCollection.Add(row(0).ToString()) 
    Next 

End Sub 

Я не понимаю, почему мой код не работает.

Answer 1

Проверьте, не заполнены ли данные в dataCollection из DB. попробуйте перевести этот скиновый сниппет для загрузки события

txtledgersearch.AutoCompleteMode = AutoCompleteMode.Suggest 
txtledgersearch.AutoCompleteSource = AutoCompleteSource.CustomSource 
Dim DataCollection As New AutoCompleteStringCollection() 
getData(DataCollection) 
txtledgersearch.AutoCompleteCustomSource = DataCollection