Try
            Dim con As OleDbConnection
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=L:\OSG\CRI\CRI-SHARE\Firm\Firmdatabase.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 * FROM ข้อมูลโทร", con)
            da.Fill(dt)

            Dim r As DataRow
            รายชื่อลูกค้าTextBox.AutoCompleteCustomSource.Clear()
            For Each r In dt.Rows
             รายชื่อลูกค้าTextBox.AutoCompleteCustomSource.Add(r.Item(1).ToString)

            Next
            con.Close()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try


เห็นมันขีด ตรง con อ่ะ ผมต้องใส่ยังให้ถูกต้องครับ