Imports System.Data.OleDb

Public Class Form2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim con As New OleDbConnection
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ice.accdb;Persist Security Info=False;"
            con.Open()

            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.Tables.Add(dt)

            Dim da As New OleDbDataAdapter("Select positionm from Employees", con)
            da.Fill(dt)

            Dim r As DataRow

            TextBox1.AutoCompleteCustomSource.Clear()

            For Each r In dt.Rows
                TextBox1.AutoCompleteCustomSource .Add(r.Item(0).ToString)

            Next
            con.Close()


        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
   
End Class
ไม่ยอมขึ้นข้อความการค้นหานะครับ ไม่มี error
ใครพอรู้ช่วยแนะนำที่นะครับ