Oh thank you freind.
I solved this myself!
dim connection as oledbconnection="Connection path"
dim ds as dataset
dim da as oledbadapter
dim cmd as oledbcommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
fill_data()
End Sub
Public Sub fill_data()
con.open()
cmd = New OleDbCommand("Select Columnname FROM tablename", connection)
cmd.ExecuteNonQuery()
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, "Tablename")
Dim col As New AutoCompleteStringCollection
Dim i As Integer
If ds.Tables("Tablemname").Rows.Count = 0 Then
Else
For i = 0 To ds.Tables("Tablename").Rows.Count - 1
col.Add(ds.Tables("Tablename").Rows(i)("Columnname").ToString())
Next
End If
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteCustomSource = col
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
con.close()
End Sub