Imports System.Data

Imports System.Data.SqlClient

Private Sub Intellisense()

Dim con As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyPractice;Data Source=IT\SQLEXPRESS")

con.Open()

Dim dsUser As New DataSet

Dim daUser As New SqlDataAdapter

Dim com As New SqlCommand

com.Connection = con

com.CommandText = "SELECT * FROM tbUSERMST"

daUser.SelectCommand = com

daUser.Fill(dsUser)

Dim datacollection As New AutoCompleteStringCollection

For i As Integer = 0 To dsUser.Tables(0).Rows.Count - 1

datacollection.Add(dsUser.Tables(0).Rows(i).Item(1).ToString)

Next

txtUserName.AutoCompleteSource = AutoCompleteSource.CustomSource

txtUserName.AutoCompleteMode = AutoCompleteMode.Suggest

txtUserName.AutoCompleteCustomSource = datacollection

End Sub