AUTOCOMPLETE TEXTBOX WITH VB.NET AND MS SQL SERVER CE database OR LOCAL DATABASE

HOW TO WORK WITH TEXTBOX IN VB.NET FOR AUTO COMPLETE TEXT
Source Code In vb.net
create a public function for autocomplete using sql server ce source code is blow after thar call function in "form  load event"

 Sub autocomplete()
        'con = New SqlConnection(cn)
        cn.Open()

        Dim cmd As New SqlCeCommand("SELECT ProductName FROM product ", cn)
        Dim ds As New DataSet
        Dim da As New SqlCeDataAdapter(cmd)
        da.Fill(ds, "My List") 'list can be any name u want

        Dim col As New AutoCompleteStringCollection
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            col.Add(ds.Tables(0).Rows(i)("Productname").ToString())

        Next
        txtProductName.AutoCompleteSource = AutoCompleteSource.CustomSource
        txtProductName.AutoCompleteCustomSource = col
        txtProductName.AutoCompleteMode = AutoCompleteMode.Suggest

        cn.Close()
    End Sub

Private Sub frmProduct_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        autocomplete()
End Sub