Вопрос : Как заселить управление ListBox с значениями от таблицы базы данных доступа

Я имею управление ListBox1 на VBA Form1.
I нужна помощь с Кодим для случая выступать с иничиативой Form1 заселит это ListBox1 с значениями (в алфавитном порядке) от поля PName всех показателей в названной таблице (ClientNames) в базе данных доступа. имя
The и положение моей базы данных доступа содержит таблицу ClientNames следующим образом: спасибо
Many
C:\My Folder\MyDatabase.mdb для вашего примечания help.
Please я использую Висуал Басич для применений для проекта в Мичрософт Шорд class= " ясное " >

Related: title= " href= " /Microsoft/Development/MS_Access/Q_26207170.html Editing поле таблицы доступа путем щелкать на значении показанном в ListBox

Ответ : Как заселить управление ListBox с значениями от таблицы базы данных доступа

Я думаю что вам нужно что-нибудь подобное.  Вспомните установить справку к библиотеке объектных модулей данным по Майкрософт активно.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Приватное Sub UserForm_Initialize () Тусклый cn как новое ADODB.Connection Тусклые rs как новое ADODB.RecordSet Тусклое strConn как шнур strConn = «Provider=Microsoft.Jet.OLEDB.4.0; Данные Source= C:\My Folder\MyDatabase.mdb; Потребитель - =admin удостоверения личности; Password=; » cn. Раскройте strConn rs. Открыто «выберите * от ЗАКАЗА ClientNames Pname», cn, adOpenDynamic, adLockOptimistic, adCmdText ListBox1.Clear Не сделать до rs.EOF Rs ListBox1.AddItem, rs. Поля («PName»). Значение rs.MoveNext Петля rs. Конец cn. Конец Подводная лодка конца