01.Dim cls As New MyData
02.Dim dv As DataView
03.Dim dt As DataTable = cls.GetDataTable("select productid,productname " & _
04. " from products order by productname")
05.dv = dt.DefaultView
06.Dim A1 As New AutoCompleteStringCollection
07.For Each drv As DataRowView In dv
08. A1.Add(drv("productname"))
09.Next
10.TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
11.TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
12.TextBox1.AutoCompleteCustomSource = A1
