non funziona su comboboxAutoCompleteStringCollection

[fasonzo]

Ciao, ho il codice che segue ma non carica la combo

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     
        Dim connection As New SqlConnection("Server= LAPTOP-rtrert; Database = SQLTutorial; Integrated Security = true")

     

        Dim comm As New SqlCommand("select * from Products", connection)

        Dim AutoComp As New AutoCompleteStringCollection
        Dim dsAccount As New DataSet
        Dim sqlAdapter As New SqlDataAdapter(comm)
        sqlAdapter.Fill(dsAccount)

        For i As Integer = 0 To dsAccount.Tables(0).Rows.Count - 1
            AutoComp.Add(dsAccount.Tables(0).Rows(i)(0).ToString())

            'ComboBox1.Items.Add(dsAccount.Tables(0).Rows(i)(0).ToString())

        Next

        ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
        ComboBox1.AutoCompleteCustomSource = AutoComp


    End Sub

'ComboBox1.Items.Add(dsAccount.Tables(0).Rows(i)(0 ).ToString()) così funziona

ma vorrei usare AutoCompleteStringCollection

cosa c' è che non va ?