Приватное 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. Конец
Подводная лодка конца
|