Set Textbox Properties:
AutoCompleteMode = SuggestAppend
AutoCompleteSource = CustomSource
Now use this code
On Form Load Event
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
fill_data()
End Sub
Sub fill_data()
Dim ds As New DataSet
Dim i As Integer = 0
ds = selectdata("Select * from mst_members order by member_name")
If ds.Tables(0).Rows.Count > 0 Then
While (i <> ds.Tables(0).Rows.Count)
Me.TextBox1.AutoCompleteCustomSource.Add(ds.Tables(0).Rows(i).Item("member_name").ToString)
i = i + 1
End While
End If
i = 0
ds.Clear()
End Sub